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PREFACE 



This manual contains the source listing for version 1.3 of the ROM-resident 
boot/monitor program for the Intellec Series II Microcomputer Development 
System. The manual also includes version 2.1 of the assembler symbol cross 
reference associated with the boot/monitor program and the source listing for the 
IPB/IPC ROM-resident diagnostic. 
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ISIS-II 8080/8085 MACRO ASSEMBLER, V3.0 



MODULE 



PAGE 



.INE 



SOURCE STATEMENT 



000D 



3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 

53 $ 

54 VER 



************************************************************************ 

* * 

* INTELLEC SERIES II BOOT/MONITOR * 

* VERSION 1.3 * 

* * 

* COPYRIGHT (C) 1978, 1979 INTEL CORPORATION. ALL RIGHTS * 

* RESERVED. NO PART OF THIS PROGRAM OR PUBLICATION * 

* MAY BE REPRODUCED, TRANSMITTED, TRANSCRIBED, * 

* STORED IN A RETRIEVAL SYSTEM, OR TRANSLATED INTO * 

* ANY LANGUAGE OR COMPUTER LANGUAGE, IN ANY FORM * 

* OR BY ANY MEANS, ELECTRONIC, MECHANICAL, MAGNETIC, * 

* OPTICAL, CHEMICAL, MANUAL OR OTHERWISE, WITHOUT * 

* THE PRIOR WRITTEN PERMISSION OF INTEL CORPORATION, * 

* 3065 BOWERS AVENUE, SANTA CLARA, CALIFORNIA 95051.. * 

* * 
************************************************************************ 

<LEGAL COMMAND> ::= <ASSIGN I/O COMMAND> 

<DI SPLAY MEMORY COMMAND> 

<ENDFILE COMMAND> 

<FILL MEMORY COMMAND> 

<PROGRAM EXECUTE COMMAND> 

<HEXADECIMAL ARITHMETIC COMMAND> 

<MOVE MEMORY COMMAND> 

<LEADER COMMAND> 

<QUERY STATUS COMMAND> 

<READ HEXADECIMAL FILE COMMAND> 

<SUBSTITUTE MEMORY COMMAND> 

<WRITE HEXADECIMAL RECORD COMMAND> 

<REGISTER MODIFY COMMAND> 

<TRANSFER CONTROL TO DIAGNOSTIC PROGRAM COMMAND> 
<ASSIGN I/O COMMAND> ::= A<LOGICAL DEVICE>=<PHYSICAL DEVICE> 
<DISPLAY MEMORY COMMAND> ::= D<NUMBER>, <NUMBER> 
<ENDFILE COMMAND> ::= E<NUMBER> 

<FILL MEMORY COMMAND> ::= F<NUMBER>, <NUMBER>, <NUMBER> 
<PROGRAM EXECUTE COMMAND> ::= G<NUMBER>, <NUMBER>,<NUMBER> 
<HEXADECIMAL ARITHMETIC COMMAND> ::= H<NUMBER>, <NUMBER> 
<MOVE MEMORY COMMAND> ::= M<NUMBER>, <NUMBER>, <NUMBER> 
<LEADER COMMAND> : : = N 
<QUERY STATUS COMMAND> ::= Q 

<READ HEXADECIMAL FILE COMMAND> ::= R<NUMBER> 
<SUBSTITUTE MEMORY COMMAND> ::= S<NUMBER><COMMA>. . . 
<WRITE HEXADECIMAL RECORD COMMAND> ::= W<NUMBER>, <NUMBER> 
<REGISTER MODIFY COMMAND> ::= X<REGISTER IDENTIFIER><NUMBER>. . . 
<TRANSFER CONTROL TO DIAGNOSTIC PROGRAM COMMAND> ::= Z$ 
<LOGICAL DEVICE> ::= LOCAL CONSOLE "READER 'LIST! PUNCH 
<PHYSICAL DEVICE> ::= CRT!TTY!PTR!PTP!LPT!BATCH!1 !2 
<REGISTER IDENTIFIER> ::= A!B!C!D!E!F!H! I 'LIMIPIS 
<NUMBER> ::= <HEX DIGIT> 

<NUMBER><HEX DIGIT> 
<HEX DIGIT> ::= ! 1 ! 2 ! 3 14 !5 !6 !7 !8 !9 !A!B !C!D!E !F 

* = *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= *=*=*=*=*=*=*=:*=*=*=*s*=*=*=*s* 

TITLE (' INTELLEC SERIES II MONITOR, VERSION 1.3, 1 MARCH 1979 ') 



EQU 



13 



VERSION 1.3 
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LOC OBJ 

0013 
0103 



00C0 
00C0 
00C1 
00C1 



000D 
0005 
0000 

0008 
0001 
0009 
0004 
000C 
0002 



00FE 
00FF 



0012 
0000 
000B 
0020 



0001 
0002 
0004 



LINE 

55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
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76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 



SOURCE STATEMENT 



13H 
0103H 



STORAGE REPRESENTATION OF VERSION 
CREATION DATE, 01 MARCH 1979 



VERB EQU 
DATE EQU 

NOTE: 

THE DATE SHOWN ABOVE IS ENCODED IN A TWO BYTE FIELD IN BOTH THE BOOTSTRAP 

PROM AND THE MONITOR PROM IN ORDER TO CONTROL NEW RELEASES OF THIS PROGRAM. 

THE DATE CODE IS LOCATED AT ADDRESSES 0E804H AND 0E805H IN THE BOOTSTRAP 

AND AT ADDRESSES 0F824H AND 0F825H IN THE MONITOR. 

THE VERSION CODE IS LOCATED IN THE MONITOR ROM AT ADDRESS 0F82FH. 

WHEN A NEW RELEASE IS ISSUED, PLEASE CHANGE THE DATE AND VERSION CODES. 

THE COPYRIGHT NOTICE IS LOCATED IN THE MONITOR ROM BEGINNING AT 0F830H. 
***************************************************************** 

* * 

* SYMBOL DEFINITIONS * 

* * 
******************************************************************************** 

INTELLEC SERIES II SYSTEM CONSTANTS 
INTEGRATED CONSOLE I/O PORTS 



CONI EQU 0C0H 

CONO EQU 0C0H 

CONS EQU 0C1H 

CONC EQU 0C1H 



CONSOLE INPUT DATA PORT 
CONSOLE OUTPUT DATA PORT 
CONSOLE STATUS PORT 
CONSOLE CONTROL PORT 



SYSTEM BOOTSTRAP CONSTANTS (ISSUED TO PORT CPUC) 



DISABL EQU 0DH 
ENABL EQU 05H 
DISAXP EQU 00H 



ENAXP 

BOVROF 

BOVRON 

BTDGOF 

BTDGON 

MOVBOT 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



08H 
01H 
09H 
04H 
0CH 
02H 



SYSTEM I/O PORTS 



CPUS 
CPUC 



EQU 
EQU 



0FEH 
0FFH 



SYSTEM INTERRUPT CONSTANTS 



ICWl 
ICW2 
0CW3 
EOI 



EQU 
EQU 
EQU 
EQU 



00010010B 
00000000B 
00001011B 
00100000B 



DISABLE INTERRUPTS 
ENABLE INTERRUPTS 
DISABLE AUXILIARY PROM 

ENABLE AUXILIARY PROM 
TURN OFF BUS OVERRIDE 
TURN ON BUS OVERRIDE 
TURN OFF BOOT/DIAGNOSTIC 
TURN ON BOOT/DIAGNOSTIC 
MOVE BOOT TO 0E800H 



CPU STATUS PORT 

CPU CONTROL PORT (CONTROLS BOOT & AUX.PROM) 



INITIALIZATION COMMAND WORD 1 
INITIALIZATION COMMAND WORD 2 
OPERATION COMMAND WORD 3 
END OF INTERRUPT 



SYSTEM INTERRUPT MASKS AND VALUES 



INT0 EQU 
INTl EQU 
INT2 EQU 



00000001B 
00000010B 
00000100B 



MASK FOR INTERRUPT LEVEL 
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LOG OBJ 

0008 
0010 
0020 
0040 
0080 
0000 



00FD 
00FC 
00FD 
00FC 



0002 
0001 
0020 
0010 



0003 
0002 
0001 
0000 
000C 
0008 
0004 
0000 
0010 
0020 
00C0 
0080 
0040 



0001 
0002 
0004 
0008 
0010 
0020 
0040 
0080 



0001 



LINE 

110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 



SOURCE STATEMENT 



INT3 
INT4 
INT5 
INT6 
INT7 
INTA 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



00001000B 
00010000B 
00100000B 
01000000B 
10000000B 
00000000B 



SYSTEM INTERRUPT I/O PORTS 



SICP0 EQU 

SICPl EQU 

SOCP0 EQU 

SOCPl EQU 



0FDH 
0FCH 
0FDH 
0FCH 



NO INTERRUPTS ALLOWED AT ALL 



INITIALIZATION COMMAND PORT 
INITIALIZATION COMMAND PORT 1 
OPERATION COMMAND PORT 
OPERATION COMMAND PORT 1 



DEDICATED PROM PROGRAMMER CONSTANTS (USED IN C,P,T COMMANDS) 



PCOMP EQU 

PGRDY EQU 

PSOCK EQU 

PNIB EQU 



00000010B 
00000001B 
00100000B 
00010000B 



PROGRAMMING COMPLETE 
PROM READY 

16 PIN SOCKET SELECTED 
SELECT UPPER NIBBLE 



INTELLEC SERIES II I/O SUBSYSTEM CONSTANTS 

TTY AND CRT MODE INSTRUCTION DEFINITIONS, I.E. USART MODE CONTROL 
WORD (FIRST CONTROL BYTE AFTER RESET) 



R64X 

R16X 

RIX 

SYNC 

CL8 

CL7 

CL6 

CL5 

PENB 

PEVEN 

ST2 

ST15 

STl 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



00000011B 
00000010B 
00000001B 
00000000B 
00001100B 
00001000B 
00000100B 
00000000B 
00010000B 
00100000B 
11000000B 
10000000B 
01000000B 



64 X BAUD RATE 
16 X BAUD RATE 
1 X BAUD RATE 
SYNC MODE 
CHARACTER LENGTH 
CHARACTER LENGTH 
CHARACTER LENGTH 
CHARACTER LENGTH 
PARITY ENABLE 
EVEN PARITY 
2 STOP BITS 
1.5 STOP BITS 
1 STOP BIT 



TTY AND CRT COMMAND INSTRUCTION DEFINITIONS (USART COMMAND CONTROL WORD) 



TXEN 

DTR 

RXEN 

SBCH 

CLERR 

RTS 

USRST 

ENHM 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



00000001B 
00000010B 
00000100B 
00001000B 
00010000B 
00100000B 
01000000B 
10000000B 



TRANSMITTER ENABLE 

DATA TERMINAL READY 

ENABLE RECEIVER 

SEND BREAK CHARACTER 

CLEAR ERROR 

SET REQUEST TO SEND OUTPUT 

USART RESET - RETURN TO MODE CONTROL CYCLE 

ENABLE HUNT MODE 



TTY/CRT STATUS WORD BIT DEFINITIONS 
TRDY EQU 00000001B ; TRANSMIT READY 
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LOG OBJ 



LINE 



SOURGE STATEMENT 



0002 
0004 
0008 
0010 
0020 
0040 
0080 



0028 
00FA 
0027 
0025 



00F4 
00F4 
00F5 
00F5 



00F6 
00F7 
00F6 
00F7 



0000 
0040 
0080 
0000 
0020 
0010 
0030 
0000 
0002 
0004 
0006 
0008 
000A 
0001 
0007 
0020 
02BA 



00F0 
00F1 
00F2 
00F3 



165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 



RRDY 

TXBE 

RPAR 

ROV 

RFR 

SYND 

DSR 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



00000010B 
00000100B 
00001000B 
00010000B 
00100000B 
01000000B 
10000000B 



RECEIVE BUFFER READY 
TRANSMIT BUFFER EMPTY 
RECEIVE PARITY ERROR 
RECEIVE OVERRUN ERROR 
RECEIVE FRAMING ERROR 
SYNC DETECTED 
DATA SET READY INPUT 



TTY TAPE READER CONSTANTS 



RADCT 
RTOCT 
TADV 
COMD 



EQU 
EQU 
EQU 
EQU 



40 ; TTY TAPE READER ADVANCE TIMER COUNT 

250 ; TTY TAPE READER TIMEOUT COUNT 

TXEN OR RXEN OR RTS OR DTR 
TXEN OR RXEN OR RTS 



TTY I/O PORTS 



TTYI EQU 0F4H 

TTYO EQU 0F4H 

TTYS EQU 0F5H 

TTYC EQU 0F5H 

USER I/O PORTS 



USCI 

uses 

USCO 

usee 



EQU 0F6H 

EQU 0F7H 

EQU 0F6H 

EQU 0F7H 



INTERVAL TIMER CONSTANTS 



CTR0S 

CTRIS 

CTR2S 

LCTR 

RLMB 

RLLB 

RLLM 

MODE0 

MODEl 

MODE 2 

M0DE3 

M0DE4 

MODES 

BCDC 

B9600 

B2400 

B0110 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



000000006 

01000000B 

10000000B 

00000000B 

00100000B 

00010000B 

00110000B 

00000000B 

00000010B 

00000100B 

00000110B 

00001000B 

00001010B 

00000001B 

7 

32 

698 



TTY INPUT DATA PORT 
TTY OUTPUT DATA PORT 
TTY INPUT STATUS PORT 
TTY OUTPUT CONTROL PORT 



USER INPUT DATA PORT 
USER INPUT STATUS PORT 
USER OUTPUT DATA PORT 
USER OUTPUT CONTROL PORT 



COUNTER SELECT 
COUNTER 1 SELECT 
COUNTER 2 SELECT 
LATCHING COUNTER 
READ/LOAD MSB ONLY 
READ/LOAD LSB ONLY 
READ/LOAD LSB, MSB 
MODE 
MODE 1 
MODE 2 
MODE 3 
MODE 4 
MODE 5 
BCD COUNTER 
9600 BAUD RATE FACTOR 
2400 BAUD RATE FACTOR 
110 BAUD RATE FACTOR 



INTERVAL TIMER (8253) I/O PORTS 



CTR0P EQU 
CTRIP EQU 
CTR2P EQU 



ITCP 



EQU 



0F0H 
0F1H 
0F2H 
0F3H 



LOAD COUNTER OUTPUT COMMAND PORT 



LOAD COUNTER 
LOAD COUNTER 



OUTPUT COMMAND PORT 
OUTPUT COMMAND PORT 



INTERVAL TIMER OUTPUT COMMAND PORT 



ISIS-II 8080/8085 MACRO ASSEMBLER, V3 . MODULE 

INTELLEC SERIES II MONITOR, VERSION 1.3, 1 MARCH 1979 



PAGE 



LOC OBJ 



00C0 
00C0 
00C1 
00C1 



0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
001A 
001B 
001C 



0001 
0001 



00F8 
00F8 
00F9 
00F9 



0010 
0060 
0040 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 



LINE 

220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 



SOURCE STATEMENT 
I/O CONTROLLER SYSTEM CONSTANTS 



I/O CONTROLLER PORTS 



lOCI 
lOCO 
IOCS 
lOCC 



EQU 
EQU 
EQU 
EQU 



0C0H 
0C0H 
0C1H 
0C1H 



I/O CONTROLLER INPUT DATA (FROM DBB) PORT 
I/O CONTROLLER OUTPUT DATA (TO DBB) PORT 
I/O CONTROLLER INPUT DBB STATUS PORT 
I/O CONTROLLER OUTPUT CONTROL COMMAND PORT 



CRT, KEYBOARD, AND FLOPPY DISK COMMANDS 



CRTC 

CRTS 

KEYC 

KSTS 

KINT 

WPBC 

WPBCC 

WDBC 

WDBCC 

RDBC 

RDBCC 

RRSTS 

RDSTS 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



10H 
IIH 
12H 
13H 
14H 
15H 
16H 
17H 
18H 
19H 
lAH 
IBH 
ICH 



CRT OUTPUT DATA COMMAND 

CRT DEVICE STATUS COMMAND 

KEYBOARD. INPUT DATA COMMAND 

KEYBOARD DEVICE STATUS COMMAND 

RESERVED 

FLOPPY PARAMETER BLOCK TRANSFER COMMAND 

FLOPPY PARAMETER BLOCK (CONT) TRANSFER COMMAND 

FLOPPY DATA BLOCK OUTPUT COMMAND 

RESERVED 

FLOPPY INPUT DATA BLOCK COMMAND 

RESERVED 

FLOPPY RESULT STATUS COMMAND 

FLOPPY DEVICE STATUS COMMAND 



CRT, KEYBOARD, AND FLOPPY STATUS BITS 

KRDY EQU 00000001B ; KEYBOARD READY WITH DATA 
FRDY EQU 00000001B ; FLOPPY READY FOR DATA 



PARALLEL I/O SYSTEM CONSTANTS 

PARALLEL I/O PORTS 

PIOI EQU 0F8H 

PIOO EQU 0F8H 

PIOS EQU 0F9H 

PIOC EQU 0F9H 

PTR, PTP, LPT AND UPP COMMANDS 



RDRC 

PTRREV 

PTRADV 

RSTC 

PUNC 

PSTC 

LPTC 

LSTC 

WPPC 

RPPC 

RPSTC 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



010H 

01100000B 

01000000B 

011H 

012H 

013H 

014H 

015H 

016H 

017H 

018H 



PARALLEL I/O INPUT DATA (FROM DBB) PORT 

PARALLEL I/O OUTPUT DATA (TO DBB) PORT 

PARALLEL I/O INPUT DBB STATUS P6RT 

PARALLEL I/O OUTPUT CONTROL COMMAND PORT 



READER DATA TRANSFER COMMAND 

READER REVERSE DIRECTION 1 FRAME OPTION 

READER ADVANCE DIRECTION 1 FRAME OPTION 

READER DEVICE STATUS COMMAND 

PUNCH DATA TRANSFER COMMAND 

PUNCH DEVICE STATUS COMMAND 

LINE PRINTER DATA TRANSFER COMMAND 

LINE PRINTER STATUS COMMAND 

WRITE TO UPP COMMAND 

READ FROM UPP COMMAND 

READ UPP STATUS COMMAND 
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LOC OBJ 



LINE 



SOURCE STATEMENT 



0001 
0001 
0001 



0000 
0001 
0002 
0003 
0004 
0005 
0006 



0007 
0008 
0009 
000A 



0001 
0002 
0004 
0008 



0004 
0079 
007A 
007B 
0078 
3000 



0000 
FFFF 
00FF 



0070 
00FA 
000D 
000A 



275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 



LPT, PTR AND PTP STATUS BITS 



LPTRY EQU 
PTRDY EQU 
PTPRY EQU 



00000001B 
00000001B 
00000001B 



LPT READY 

PTR READY WITH DATA 

PTP READY FOR DATA 



*_*_*_*_*_*_*_*_*_*_*_*-*_*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* 



PARALLEL I/O AND I/O CONTROLLER SYSTEM COMMANDS 



PACIFY EQU 

ERESET EQU 

SYSTAT EQU 

DSTAT EQU 

SRQDAK EQU 

SRQACK EQU 

SRQ EQU 



00H 
01H 
02H 
03H 
04H 
05H 
06H 



REINITIALIZE SYSTEM 

ERROR RESET 

SYSTEM STATUS 

DEVICE STATUS 

DEVICE SERVICE REQUEST ACK 

SYSTEM SERVICE REQUEST ACK 

SERVICE REQUEST 



PARALLEL I/O AND I/O CONTROLLER DIAGNOSTIC COMMANDS 



DECHO EQU 07H 

CSMEM EQU 08H 

TRAM EQU 09H 

SINT EQU 0AH 



DATA ECHO TEST 

CHECKSUM MEMORY 

TEST RAM 

SYSTEM INTERRUPT CONTROL 



PARALLEL I/O AND I/O CONTROLLER STATUS CONSTANTS 



OBF EQU 

IBF EQU 

F0 EQU 

CNOTD EQU 



00000001B 
00000010B 
00000100B 
00001000B 



SLAVE OUTPUT BUFFER IS FULL 

SLAVE INPUT BUFFER IS FULL 

FLAG - SLAVE IS BUSY, MASTER IS LOCKED OUT 

DBB CONTAINS CONTROL INFO NOT DATA 



FDCC (FLOPPY DISKETTE CHANNEL COMMAND) CONSTANTS 



OPCPL 

LOWW 

HI 

RSTS 

DSTS 

TRK0 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



4 

79H 

7AH 

7BH 

78H 

3000H 



DISK COMPLETION STATUS 

LOW(IOPB) 

HIGH(IOPB) 

DISK RESULT STATUS INPUT PORT 

DISK STATUS INPUT PORT 

FIRST ADDRESS OF DISK BOOTSTRAP 



CONDITIONAL ASSEMBLY SWITCHES 



FALSE EQU 
TRUE EQU 
HMSK EQU 



NOT FALSE 
0PFH 



GLOBAL CONSTANTS 



ONEMS 
TOUT 
CR 
LF 



EQU 
EQU 
EQU 
EQU 



112 
250 
0DH 
0AH 



SAFE MOVE OF 16 BITS INTO 8 BIT REGISTER 



1 MILLISECOND TIME CONSTANT 
250 MS. COUNTER FOR READER TIMEOUT 
ASCII VALUE OF CARRIAGE RETURN 
ASCII VALUE OF LINE FEED 
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LOG OBJ 



0003 



00FC 
00F3 
00CF 
003F 

0000 
0001 
0002 

0003 

0000 
0004 
0008 
000C 

0000 
0010 
0020 
0030 

0000 
0040 
0080 
00C0 



00FB 
00FA 
00FB 
00FA 



0001 
0002 
0004 
0008 
0010 
0020 
0040 
0080 



00E7 
00F7 
0004 
007F 



LINE 

330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 



SOURCE STATEMENT 
ETX EQU 03H ; MONITOR BREAK CHARACTER (CONTROL C) 

MONITOR I/O STATUS BYTE MASKS AND VALUES 



CMSK EQU 

RMSK EQU 

PMSK EQU 

LMSK EQU 



11111100B 
11110011B 
11001111B 
00111111B 



CTTY 


EQU 


00000000B 


CCRT 


EQU 


00000001B 


BATCH 


EQU 


00000010B 


CUSE 


EQU 


00000011B 


RTTY 


EQU 


00000000B 


RPTR 


EQU 


00000100B 


RUSEl 


EQU 


00001000B 


RUSE2 


EQU 


00001100B 


PTTY 


EQU 


00000000B 


PPTP 


EQU 


00010000B 


PUSEl 


EQU 


00100000B 


PUSE2 


EQU 


00110000B 



LTTY 
LCRT 
LLPT 
LUSE 



EQU 
EQU 
EQU 
EQU 



00000000B 
01000000B 
10000000B 
11000000B 



MASK FOR LOCAL CONSOLE I/O 
MASK FOR READER INPUT 
MASK FOR PUNCH OUTPUT 
MASK FOR LIST OUTPUT 

LOCAL CONSOLE = TTY 

LOCAL CONSOLE = CRT 

BATCH MODE: 

CONSOLE INPUT = READER, CONSOLE OUTPUT = LIST 

USER DEFINED LOCAL CONSOLE I/O 

READER = TTY 

READER = PTR 

USER DEFINED READER (1) 

USER DEFINED READER (2) 

PUNCH = TTY 

PUNCH = PTP 

USER DEFINED PUNCH (1) 

USER DEFINED PUNCH (2) 

LIST = TTY 
LIST = CRT 
LIST = LPT 
USER DEFINED LIST 



LOCAL I/O SUBSYSTEM INTERRUPT PORTS 



IICP0 EQU 

IICPl EQU 

IOCP0 EQU 

lOCPl EQU 



0FBH 
0FAH 
0FBH 
0FAH 



INITIALIZATION COMMAND PORT 
INITIALIZATION COMMAND PORT 1 
OPERATION COMMAND PORT 
OPERATION COMMAND PORT 1 



LOCAL INTERRUPT STATUS AND CONTROL BITS 



ITTYO 
I TTY I 
I PTP 
I PTR 
ICRTO 
ICRTI 
I LPT 
MENB 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



00000001B 
00000010B 
00000100B 
00001000B 
00010000B 
00100000B 
01000000B 
10000000B 



*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*„ 



BOOTSTRAP CONSTANTS 



FSTOP 
FSTP 
FDOC 
ACHRM 



EQU 
EQU 
EQU 
EQU 



0E7H 
0P7H 
004H 
07FH 



TTY OUTPUT INTERRUPT 

TTY INPUT INTERRUPT 

PTP OUTPUT INTERRUPT 

PTR INPUT INTERRUPT 

CRT OUTPUT INTERRUPT 

CRT INPUT INTERRUPT 

LPT OUTPUT INTERRUPT 

ENABLE MONITOR INTERRUPTS EXCEPT LEVEL 7 



FULL SYSTEM TOP OF MEMORY ADDRESS 
FULL SYSTEM TOP PAGE ADDRESS 
FLOPPY DISK OPERATION COMPLETE 
ASCII CHARACTER MASK 



ISIS-II 8080/8085 MACRO ASSEMBLER, V3 . 
INTELLEC SERIES II MONITOR, VERSION 1.3, 



MODULE 
1 MARCH 1979 



LOG OBJ 

00FF 
00FF 
0041 
0001 
0040 
04CD 
0008 
0D00 
0004 
F809 
F821 
F844 



0000 
0000 
0003 
0004 
0006 



E800 
E800 
E800 C306E8 

E803 00 



E804 0301 



E806 F3 
E807 3E02 
E809 D3FF 
E80B 3E01 



LINE 

385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 



SOURCE STATEMENT 



ITIMO 

LBMK 

ICFG 

ICNP 

LSTE 

RTCC 

DPRNT 

TRKL 

PARML 

COP 

lOCDPl 

I0CDP2 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



0FFH 

0FFH 

041H 

001H 

040H 

1229 

08H 

26*128 

4 

0F809H 

0F821H 

0F844H 



_*_*_*_*_ 



PAGE 



IOC TIMEOUT CONSTANT 

LOWER BYTE MASK 

CONSOLE CONFIGURATION STATUS 

INTEGRATED CONSOLE NOT PRESENT STATUS 

LIST DEVICE VALUE FOR CONSOLE 

REAL TIME CLOCK IMS CONSTANT 

DISK READY MASK 

TRACK LENGTH 

PARAMETER LENGTH - 1 

ENTRY POINT FOR CONSOLE OUT 

ENTRY POINT FOR IOC DRIVER 1 

ENTRY POINT FOR IOC DRIVER 2 



PAGE DEDICATED RAM LOCATIONS, INITIALIZED BY BOOTSTRAP PROM CODE. 
ORG 

DS 3 ; TRAP TO MONITOR RESTART 

DS 1 ; I/O SYSTEM STATUS BYTE 

DS 2 ; TOP OF RAM, ONLY H SAVED 



RESET 



lOBYT: 



MEMTOP: 



INITIO: 



DS 



; INITIAL I/O CONFIGURATION 



BOOTSTRAP PROM CODE 



BBASE 



INIT: 



SET 0E800H 
ORG BBASE 
JMP BS0 



DB 



DW 







DATE 



BRANCH AROUND DATE CODE BYTE 

INITIALLY 

CONSOLE = TTY, 

READER = TTY, 

PUNCH = TTY, 

LIST = TTY 

DATE STAMP FOR BOOTSTRAP PROM 



FUNCTIONS; 
A. 



INITIALIZE INTERRUPT SYSTEM AND REAL TIME CLOCK 

0. INITIALIZE PORT 0FFH (CPUC) 

1. PROGRAM SYSTEM INTERRUPTS (8259) 

2. MASK ALL SYSTEM INTERRUPTS BUT TRAP LOGIC 

3. PROGRAM I/O SUBSYSTEM INTERRUPTS (8259) 

4. MASK ALL I/O SUBSYSTEM INTERRUPTS 

5. PROGRAM REAL TIME CLOCK 



BS0: 



DI 




MVI 


A,MOVBOT 


OUT 


CPUC 


MVI 


A,BOVROF 



; DISABLE INTERRUPT SYSTEM 

; TURN ON RAM (ROM WILL NOW RESPOND ONLY TO ADDRESS E800H) 

; TURN OFF BUS OVERRIDE 
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PAGE 



LOC OBJ 



E80D 


D3FF 


E80F 


3E05 


E811 


D3FF 


E813 


3E08 


E815 


D3FF 


E817 


3E12 


E819 


D3FD 


E81B 


D3FB 


E81D 


3E00 


E81F 


D3FC 


E821 


D3FA 


E823 


3EFE 


E825 


D3FC 


E827 


3EFF 


E829 


D3FA 


E82B 


3EB6 


E82D 


D3F3 


E82F 


21CD04 


E832 


7D 


E833 


D3F2 


E835 


7C 


E836 


D3F2 



E838 210000 

E83B 24 
E83C 7E 
E83D 2F 
E83E 77 
E83F BE 
E840 2F 
E841 77 
E842 CA3BE8 
E845 2B 

E846 3EE7 
E848 BC 
E849 C262E8 



E84C 2100EF 



LINE 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 BSl; 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 



SOURCE STATEMENT 



OUT 
MVI 
OUT 
MVI 
OUT 
MVI 
OUT 
OUT 
MVI 
OUT 
OUT 
MVI 
OUT 
MVI 
OUT 
MVI 
OUT 
LXI 
MOV 
OUT 
MOV 
OUT 

B. 



LXI 

INR 

MOV 

CMA 

MOV 

CMP 

CMA 

MOV 

JZ 

DCX 

MVI 
CMP 
JNZ 



LXI 



; PSEUDO ENABLE OF INTERRUPTS 
; ENABLE AUXILIARY PROM 

OUTPUT INITIALIZATION COMMAND WORD 1 

TO SYSTEM 8259 

TO I/O 8259 
OUTPUT INITIALIZATION COMMAND WORD 2 

TO SYSTEM 8259 

TO I/O 8259 
INITIALIZE MASK REGISTER 

FOR SYSTEM 8259 
INITIALIZE MASK REGISTER 

FOR I/O 8259 
OR RLLM ; INITIALIZE IMS REAL TIME CLOCK 



CPUC 

A,ENABL 

CPUC 

A,ENAXP 

CPUC 

A,ICW1 

SICP0 

IICP0 

A,ICW2 

SICPl 

IICPl 

A, NOT INT0 

SOCPl 

A, NOT INTA 

lOCPl 

A,CTR2S OR M0DE3 

ITCP 

H,RTCC 

A,L 

CTR2P 

A,H 

CTR2P 



INITIALIZE RAM. 

1. COMPUTE SIZE OF RAM MEMORY. 

2. SET UP DEDICATED MEMORY LOCATIONS 

USER I/O ENTRY POINTS (TOP OF MEMORY) 

EXIT TEMPLATE 

USER REGISTERS 

USER INTERRUPT MASK 

USER STACK 

MONITOR STACK 

RESTART ROUTINE JUMP ADDRESS 



H,0 

H 

A,M 

M,A 
M 

M,A 

BSl 
H 

A,FSTOP 

H 

BS2 



H,0EF00H 



INITIAL VALUE H:=0, L:=0 

INCREMENT BY 256 BYTE PAGES, I . E. 100H, 200H, . . . ,F800H 

FETCH CONTENTS OF MEMORY 

INVERT IT 

ATTEMPT TO WRITE IT BACK INTO MEMORY 

IS LOCATION READ /WRITE, I.E. EXISTING RAM 

INVERT AGAIN BACK TO ORIGINAL VALUE 

WRITE ORIGINAL DATA VALUE BACK IN 

YES, CONTINUE (I.E. STILL CONTIGUOUS RAM) 

OTHERWISE, IT'S LAST ADDRESS IN RAM 

UP TO 0E7FFH 
LOAD FULL-SYSTEM-UP-TO-BOOT-ROM PAGE ADDRESS 
TEST FOR FULL-SYSTEM-UP-TO-BOOT ROM 
JUMP IF LESS THAN 0E7FFH IN RAM 
AT THIS POINT WE HAVE CONTIGUOUS RAM UP TO 

0E7FFH; SKIP OVER 0E800-EFFFH WHICH IS 

SHADOWED BY BOOT ROM AND THEREFORE 

INACCESSIBLE; CONTINUE TESTING RAM FROM 

0F000H 
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LOG OBJ 



E84F 


24 


E850 


7E 


E851 


2F 


E852 


77 


E853 


BE 


E854 


2F 


E855 


77 


E856 


CA4FE8 


E859 


2B 


E85A 


3EF0 


E85C 


BC 


E85D 


DA62E8 


E860 


26E7 


E862 


220400 


E865 


01C8EA 


E868 


69 


E869 


F9 


E86A 


0A 


E86B 


77 


E86C 


0C 


E86D 


2C 


E86E 


C26AE8 


E871 


2ED1 


E873 


74 


E874 


35 


E875 


3EC3 


E877 


320000 


E87A 


21D4FE 


E87D 


220100 



E880 3E76 
E882 D3F3 
E884 212000 
E887 7D 
E888 D3F1 
E88A 7C 
E88B D3F1 
E88D 3ECE 



LINE 

495 BSIX: 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 BS2: 

517 

518 

519 

520 

521 BS3: 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 



SOURCE STATEMENT 



INR 

MOV 

CMA 

MOV 

CMP 

CMA 

MOV 

JZ 

DCX 

MVI 
CMP 



JC 
MVI 



SHLD 
LXI 
MOV 
SPHL 

LDAX 

MOV 

INR 

INR 

JNZ 

MVI 

MOV 

DCR 

MVI 
STA 
LXI 
SHLD 

C. 



MVI 
OUT 
LXI 
MOV 
OUT 
MOV 
OUT 
MVI 



H 
A,M 

M,A 
M 

M,A 

BSIX 

H 

A,0F0H 
H 



BS2 
H,FSTOP 



MEMTOP 

B,TOS 

L,C 



B 

M,A 

C 

L 

BS3 

L,SLOC AND HMSK 

M,H 

M 

A, (JMP RESTART) 

RESET 

H, RESTART 

RESET+1 



PAGE 



INCREMENT BY 256 BYTE PAGES 
FETCH CONTENTS OF MEMORY 
INVERT IT 

ATTEMPT TO WRITE IT BACK INTO MEMORY 
IS LOCATION READ/WRITE, I.E. EXISTING RAM 
INVERT IT BACK AGAIN TO ORIGINAL VALUE 
WRITE ORIGINAL DATA VALUE BACK IN 
YES, CONTINUE (I.E. STILL CONTIGUOUS RAM) 
OTHERWISE HL POINT TO LAST CONTIGUOUS 
BYTE OF RAM 

TEST IF H > 0F0H (I.E. THAT TOP OF MEMORY 
IS AT LEAST 512 BYTES ABOVE SHADOW BOOT 
ROM BECAUSE WE NEED SPACE FOR MONITOR 
WORK TEMPLATE) 
IF H > 0F0H THEN CARRY=1 AND HL CONTAIN 

TRUE TOP OF MEMORY 
OTHERWISE H <= 0F0H THEN CARRY=0, SO 

SET TOP OF MEMORY TO 0E7FFH, WHICH IS 
JUST BELOW THE START OF SHADOW BOOT ROM 

STORE TOP OF MEMORY 

MOVE EXIT TEMPLATE TO RAM 

SET MONITOR'S STACK POINTER 



MOVE BOTH POINTERS 

END ON PAGE BOUNDARY 

SET UP INITIAL VALUE FOR USER STACK 

LOWER HALF OF STACK POINTER IS KNOWN 

MERELY SET UPPER HALF 

TRAP TO MONITOR (AT LOCATIONS 0,1,2) 



SET UP RESTART 
LOGIC 



FOR BREAKPOINT 



PROGRAM I/O DEVICES. 

1. BAUD RATE GENERATOR FOR CRT 

2. USART FOR CRT 

3. BAUD RATE GENERATOR FOR TTY 

4. USART FOR TTY 

A,CTR1S OR M0DE3 OR RLLM 

ITCP 

H,B2400 ; CRT BAUD RATE 

A,L 

CTRIP 

A,H 

CTRIP 

A,ST2 OR R16X OR CL8 
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LOC OBJ 



E88F 


D3F7 


E891 


3E27 


E893 


D3F7 


E895 


3E36 


E897 


D3F3 


E899 


21BA02 


E89C 


7D 


E89D 


D3F0 


E89F 


7C 


E8A0 


D3F0 


E8A2 


3ECE 


E8A4 


D3F5 


E8A6 


3E25 


E8A8 


D3F5 


E8AA 


2EFF 


E8AC 


DBCl 


E8AE 


E607 


E8B0 


CAC0E8 


E8B3 


CD23EA 


E8B6 


CD23EA 


E8B9 


2D 


E8BA 


CAE2E8 


E8BD 


C3ACE8 


E8C0 


3E11 


E8C2 


D3C1 


E8C4 


2EFF 


E8C6 


DBCl 


E8C8 


E607 


E8CA 


FE01 


E8CC 


CADGES 


E8CF 


CD23EA 


E8D2 


CD23EA 


E8D5 


2D 


E8D6 


CAE2E8 


E809 


C3C6E8 


E8DC 


DBC0 


E8DE 


0F 


E8DF 


DAEAE8 


E8E2 


2A0400 


E8E5 


2ECC 


E8E7 


3E01 


E8E9 


77 



LINE 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 BS4: 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 BS5: 

579 

580 

581 

582 BS6: 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 BS7: 

593 

594 

595 

596 BS8: 

597 

598 

599 

600 

601 BS9: 

602 

603 

604 



SOURCE STATEMENT 



OUT 
MVI 
OUT 
MVI 
OUT 
LXI 
MOV 
OUT 
MOV 
OUT 
MVI 
OUT 
MVI 
OUT 

D. 

MVI 

IN 
AN I 

JZ 

CALL 

CALL 

DCR 

JZ 

JMP 

MVI 
OUT 
MVI 

IN 

AN I 

CPI 

JZ 

CALL 

CALL 

DCR 

JZ 

JMP 

IN 

RRC 

JC 

LHLD 
MVI 
MVI 
MOV 



E. 



usee 

A,TXEN OR DTR OR RXEN OR RTS 

usee 

A,CTR0S OR M0DE3 OR RLLM 

ITCP 

H,B0110 ; TTY BAUD RATE 

A,L 

eTR0P 

A,H 

eTR0P 

A,ST2 OR R16X OR CL8 

TTYC 

A,TXEN OR RXEN OR RTS 

TTYC 

DETERMINE IF INTEGRATED CONSOLE PRESENT 



L,ITIMO 

IOCS 

IBF OR OBF OR F0 

BS5 

BDLY 

BDLY 

L 

BS8 

BS4 

A, CRTS 

lOCC 

L,ITIMO 

IOCS 

IBF OR OBF OR F0 

OBF 

BS7 

BDLY 

BDLY 

L 

BS8 

BS6 

lOCI 

BS9 

MEMTOP 

L,BL0C+1 AND LBMK 

A,ICNP 

M,A 



LOAD TIMEOUT CONSTANT 

INPUT DBB STATUS 

MASK OFF STATUS FLAGS 

AND TEST FOR SLAVE PRESENCE 

JUMP IF INTEGRATED CONSOLE PRESENT 

DELAY 1 MS FOR ANY RESETS TO COMPLETE 

DELAY 1 MS. 

DECREMENT TIMER 

JUMP IF TIME EXPIRED 

OTHERWISE TRY AGAIN 

LOAD CRT DEVICE STATUS COMMAND 
OUTPUT COMMAND TO IOC CONTROL PORT 
LOAD TIMEOUT CONSTANT 

INPUT DBB STATUS 

MASK OFF STATUS FLAGS 

TEST FOR SLAVE DONE; SOMETHING FOR THE MASTER 

JUMP IF DONE 

DELAY 1 MS FOR ANY RESETS TO COMPLETE 

DELAY 1 MS. 

DECREMENT TIMER 

JUMP IF TIME EXPIRED 

OTHERWISE, TRY AGAIN 

INPUT CRT DEVICE STATUS FROM DBB 

TEST FOR CRT READY 

JUMP IF READY (INTEGRATED CRT PRESENT) 

INTEGRATED CRT NOT PRESENT/READY SO RECORD THIS FACT 

LOAD TOP OF MEMORY PAGE ADDRESS 

; LOAD CONFIGURATION ADDRESS 

LOAD INTEGRATED CONSOLE NOT PRESENT 

STORE IN CONFIGURATION BYTE IN EXIT TEMPLATE 



LOAD ISIS.T0 IF DISKETTE IS READY 
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12 



LOC OBJ 



LINE 



SOURCE STATEMENT 



E8EA AF 
E8EB 2F 
E8EC F5 



E8ED DB78 

E8EF E608 
E8F1 CA20E9 
E8F4 DB78 
E8F6 0F 
E8F7 D28EE9 



E8FA 210010 
E8FD 1134EA 
E900 0607 

E902 lA 
E903 77 
E904 23 
E905 13 
E906 05 
E907 C202E9 
E90A 210010 
E90D 7D 
E90E D379 
E910 7C 
E911 D37A 

E913 DB78 
E915 E604 
E917 CA13E9 
E91A Fl 
E91B AF 

E91C F5 
E91D C38EE9 



E920 


2A0400 


E923 


2ECC 


E925 


7E 


E926 


0F 


E927 


DA8EE9 


E92A 


061C 


E92C 


CD21F8 


E92F 


E608 


E931 


CA8EE9 


E934 


061C 



605 


XRA 


A 


606 


CMA 




607 


PUSH 


PSW 


608 






609 






610 






611 


IN 


DSTS 


612 






613 


AN I 


00001000B 


614 


JZ 


BSll 


615 


IN 


DSTS 


616 


RRC 




617 


JNC 


BSXl 


618 






619 






620 






621 






622 


LXI 


H,1000H 


623 


LXI 


D,IOPB 


624 


MVI 


B,7 


625 MLP: 






626 


LDAX 


D 


627 


MOV 


M,A 


628 


INX 


H 


629 


INX 


D 


630 


DCR 


B 


631 


JNZ 


MLP 


632 


LXI 


H,1000H 


633 


MOV 


A,L 


634 


OUT 


LOWW 


635 


MOV 


A,H 


636 


OUT 


HI 


637 BS10: 






638 


IN 


DSTS 


639 


AN I 


OPCPL 


640 


JZ 


BS10 


641 


POP 


PSW 


642 


XRA 


A 


643 






644 


PUSH 


PSW 


645 


JMP 


BSXl 


646 ; 






647 ; LOAD 


ISIS.T0 


FROM INTEG 


648 ; 






649 BSll: 






650 


LHLD 


MEMTOP 


651 


MVI 


L,BL0C+1 


652 


MOV 


A,M 


653 


RRC 




654 


JC 


BSXl 


655 


MVI 


B,RDSTS 


656 


CALL 


lOCDPl 


657 


AN I 


DPRNT 


658 


JZ 


BSXl 


659 


MVI 


B,RDSTS 



A-REG = 0FFH 
THREE-VALUED FLAG: 

0FFH IF NEITHER FDCC NOR ISD SELECTED 

00H IF FDCC SELECTED 

01H IF ISD SELECTED 
SAMPLE FDCC STATUS 

STATUS = 00H IF NO CONTROLLER PRESENT 
IS FDCC CONTROLLER PRESENT? 
JUMP TO ISD SECTION IF FDCC NOT PRESENT 
SAMPLE FDCC STATUS AGAIN 

DRIVE READY STATUS ROTATED INTO CARRY BIT 
JUMP TO MONITOR IF FDCC CONTROLLER PRESENT 

AND DRIVE NOT READY 
THE FOLLOWING CODE IS USED TO WRITE THE DISK lOPB TO 
PROCESSOR MEMORY SO THAT IF ICE IS BEING USED TO DEBUG 
THE BOOT/MONITOR, THE DISK CONTROLLER CAN ACCESS THE lOPB 
LOAD POINTER TO DESTINATION MEMORY 
LOAD POINTER TO SOURCE MEMORY FOR lOPB 
LOAD lOPB LENGTH COUNT 

LOAD BYTE OF lOPB 

MOVE TO MEMORY 

INCREMENT lOPB POINTER 

INCREMENT MEMORY POINTER 

DECREMENT lOPB LENGTH COUNT 

CONTINUE UNTIL ALL OF lOPB MOVED 

RELOAD POINTER TO lOPB 

A CONTAINS LSB OF lOPB ADDRESS 

LOW(IOPB) 

A CONTAINS MSB OF lOPB ADDRESS 

HIGH(IOPB), START DISK I/O 

WAIT FOR FDCC TO COMPLETE 
TEST FOR DISK COMPLETION 

GET READY TO SET FLAG TO NEW VALUE 

SET A TO ZERO TO INDICATE DRIVE OTHER THAN INTEGRATED 

FLOPPY WAS ACCESSED CORRECTLY 

SAVE ON STACK 

BYPASS INTEGRATED FLOPPY BOOT 



; LOAD TOP OF MEMORY PAGE ADDRESS 
AND LBMK ; LOAD CONFIGURATION ADDRESS 



TEST FOR INTEGRATED CONSOLE PRESENT 

JUMP IF IOC NOT PRESENT OR FUNCTIONAL 

LOAD FLOPPY DEVICE STATUS COMMAND 

READ STATUS FROM I/O CONTROLLER 

TEST FOR DRIVE PRESENT 

JUMP IF NOT PRESENT 

LOAD FLOPPY DEVICE STATUS COMMAND 
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LOC 


OBJ 


E936 


CD21F8 


E939 


0F 


E93A 


D28EE9 


E93D 


Fl 


E93E 


AF 


E93F 


3C 


E940 


F5 


E941 


2134EA 


E944 


0615 


E946 


4E 


E947 


CD44F8 


E94A 


1E04 


E94C 


0616 


E94E 


23 


E94F 


4E 


E950 


CD44F8 


E953 


ID 


E954 


C24EE9 


E957 


061C 


E959 


CD21F8 


E95C 


E604 


E95E 


CA59E9 


E961 


061B 


E963 


CD21F8 


E966 


32FE2F 


E969 


B7 


E96A 


C28EE9 


E96D 


210030 


E970 


11000D 


E973 


0619 


E975 


CD21F8 


E978 


77 


E979 


IB 


E97A 


23 


E97B 


DBCl 


E97D 


E607 


E97F 


FE01 


E981 


C27BE9 


E984 


DBC0 


E986 


77 


E987 


23 


E988 


IB 


E989 


7A 


E98A 


B3 


E98B 


C27BE9 



LINE 

660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 



SOURCE STATEMENT 



BS12! 



BS13; 



BS14; 



CALL 
RRC 


lOCDPl 




JNC 


BSXl 




POP 


PSW 




XRA 


A 




INR 


A 




PUSH 


PSW 




LXI 


H,IOPB 




MVI 


B,WPBC 




MOV 


CM 




CALL 


I0CDP2 




MVI 


E,PARML 




MVI 


B,WPBCC 




INX 


H 




MOV 


CM 




CALL 


I0CDP2 




DCR 


E 




JNZ 


BS12 




MVI 


B,RDSTS 




CALL 


lOCDPl 




AN I 


OPCPL 




JZ 


BS13 




MVI 


B,RRSTS 




CALL 


lOCDPl 




STA 


TRK0-2 




ORA 


A 




JNZ 


BSXl 




LXI 


H,TRK0 




LXI 


D,TRKL 




MVI 


B,RDBC 




CALL 


lOCDPl 




MOV 


M,A 




DCX 


D 




INX 


H 




IN 


IOCS 




AN I 


IBF OR OBF OR 


F0; 


CPI 


OBF 




JNZ 


BS14 




IN 


lOCI 




MOV 


M,A 




INX 


H 




DCX 


D 




MOV 


A,D 




ORA 


E 




JNZ 


BS14 





F. 



READ STATUS FROM I/O CONTROLLER 

SECOND STATUS READ USED TO INSURE DRIVE READY 

TEST FOR DRIVE READY 

JUMP IF DRIVE NOT READY 

UNLOAD STACK 

SET A TO 1 TO INDICATE 

INTEGRATED FLOPPY WAS ACCESSED 

SAVE ON STACK 

LOAD POINTER TO lOPB 

LOAD WRITE lOPB COMMAND 

LOAD FIRST BYTE OF lOPB 

SEND BYTE TO IOC 

LOAD lOPB LENGTH REMAINING 

LOAD WRITE lOPB CONTINUE COMMAND 

MOVE POINTER TO NEXT BYTE OF lOPB 

MOVE TO C 

SEND TO IOC 

DECREMENT lOPB LENGTH 

CONTINUE UNTIL ALL DATA TRANSMITTED 

LOAD DEVICE STATUS COMMAND 

READ STATUS FROM IOC 

TEST FOR OPERATION COMPLETE 

LOOP UNTIL DONE 

LOAD RESULT STATUS COMMAND 

READ RESULT STATUS FROM IOC 

SAVE FOR TEST LATER 

SET CONDITION CODES 

JUMP IF DISK OPERATION UNSUCCESSFUL 

LOAD POINTER TO DISK DESTINATION ADDRESS 

LOAD TRACK LENGTH 

LOAD DISK READ DATA COMMAND 

LOAD DATA FROM IOC 

MOVE TO MEMORY 

DECREMENT LENGTH 

MOVE POINTER TO NEXT LOCATION 

INPUT DBB STATUS 

MASK OFF STATUS FLAGS 

TEST FOR DATA IN BUFFER 

JUMP IF NO DATA 

INPUT DATA FROM DBB 

MOVE TO MEMORY 

MOVE POINTER TO NEXT LOCATION 

DECREMENT LENGTH 

LOAD D FOLLOWED BY E 

CONTINUE UNTIL DONE 



DETERMINE COLD START LOCAL CONSOLE. 



CONSOLE IS 
BSXl: 



EITHER INTEGRATED CRT, SERIAL CRT, OR TTY 
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LOG 


OBJ 


E98E 


2A0400 


E991 


2ECC 


E993 


7E 


E994 


0F 


E995 


DAA4E9 


E998 


0613 


E99A 


CD21F8 


E99D 


0F 


E99E 


0F 


E99F 


1641 


E9A1 


DACCE9 


E9A4 


AF 


E9A5 


57 


E9A6 


DBFS 


E9A8 


E602 


E9AA 


CAB2E9 


E9AD 


DBF4 


E9AF 


C3BDE9 


E9B2 


1641 


E9B4 


DBF7 


E9B6 


E602 


E9B8 


CAA4E9 


E9BB 


DBF6 


E9BD 


E67F 


E9BF 


FE20 


E9C1 


C2A4E9 



E9C4 2A0400 
E9C7 2ECC 
E9C9 3E01 
E9CB 77 



E9CC 210300 
E9CF 72 
E9D0 2E06 
E9D2 72 



E9D3 CD03EB 



E9D6 Fl 
E9D7 B7 



LINE 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 



SOURCE STATEMENT 



LHLD 

MVI 

MOV 

RRC 

JC 

MVI 

CALL 

RRC 

RRC 

MVI 

JC 



MEMTOP ; 

L,BL0C+1 AND LBMK 
A,M 

BSX2 

B,KSTS 

lOCDPl 



D,ICFG 
BSX5 



LOAD TOP OF MEMORY PAGE ADDRESS 

; LOAD CONFIGURATION ADDRESS 

LOAD INTEGRATED CONSOLE FLAG 

TEST FOR INTEGRATED CONSOLE PRESENT 

JUMP IF INTEGRATED CONSOLE NOT PRESENT 

LOAD KEYBOARD STATUS COMMAND 

READ STATUS FROM IOC 

TEST FOR KEYBOARD PRESENT 

LOAD INITIAL CONFIGURATION 
JUMP IF KEYBOARD PRESENT 



; CONSOLE IS 

BSX2: 

XRA 

MOV 

IN 

AN I 

JZ 

IN 

JMP 



EITHER SERIAL CRT OR TTY 



BSX3: 



BSX4i 



MVI 
IN 
AN I 
JZ 
IN 

AN I 
CPI 
JNZ 



LHLD 
MVI 
MVI 
MOV 



A 

D,A 

TTYS 

RRDY 

BSX3 

TTY I 

BSX4 

D,ICFG 

uses 

RRDY 
BSX2 
USCI 

7FH 
I I 

BSX2 



MEMTOP 

L,BL0C+1 AND LBMK 

A,ICNP 

M,A 



ZERO A 

D CONTAINS 0H, I .E.C=T,R=T,P=T,L=T 

GET TTY STATUS 

IS IT READY? 

JUMP IF TTY NOT READY 

OTHERWISE GET CHARACTER FROM TTY 



LOAD INITIAL CONFIGURATION STATUS 

GET SERIAL CRT STATUS 

IS IT READY/ 

JUMP BACKWARDS IF CRT NOT READY 

OTHERWISE, GET CHARACTER FROM CRT 

MASK OUT PARITY BIT 

DID USER TYPE IN A SPACE CHARACTER? 
START ALL OVER IF NOT A SPACE CHARACTER 
IN CASE OF INTEGRATED CONSOLE PRESENT BUT 

KEYBOARD DISCONNECTED, THE CONSOLE IS 

NOW A SERIAL CRT, SO UPDATE 

INTEGRATED CONSOLE FLAG 
LOAD TOP OF MEMORY PAGE ADDRESS 
; LOAD CONFIGURATION ADDRESS 
INTEGRATED CONSOLE NOT PRESENT 
STORE IN CONFIGURATION BYTE IN EXIT TEMPLATE 



; AT THIS POINT THE CONSOLE DEVICE HAS BEEN DETERMINED 
BSX5s 



LXI 
MOV 
MVI 
MOV 

G. 

CALL 

H. 

POP 
ORA 



H,IOBYT 

M,D 

L, INITIO 

M,D 



HL POINTS TO I/O STATUS BYTE 
REPLACE MODIFIED I/O STATUS BYTE 
HL POINTS TO INITIAL I/O STATUS BYTE 
SET INITIAL I/O STATUS BYTE 



CALL THE DIAGNOSTIC PROGRAM 

DIAGBT 

IF DISK IS READY, TRANSFER TO ISIS.T0 



PSW 

A 



UNLOAD FLAG 

SET CONDITION CODES 



ISIS-II 8080/8085 MACRO ASSEMBLER, V3.0 MODULE 

INTELLEC SERIES II MONITOR, VERSION 1.3, 1 MARCH 1979 



LOC OBJ 

E9D8 C2EAE9 
E9DB DB7B 
E9DD B7 
E9DE C218EA 
E9E1 DB78 
E9E3 0P 
E9E4 D20DEA 



E9E7 C3FEE9 



E9EA 


07 


E9EB 


DA0DEA 


E9EE 


3AFE2F 


E9P1 


B7 


E9F2 


C218EA 


E9F5 


061C 


E9F7 


CD21F8 


E9FA 


0F 


E9FB 


D20DEA 


E9FE 


3ED3 


EA00 


32FE2F 


EA03 


3EFF 


EA05 


32FF2F 


EA08 


3E04 


EA0A 


C3FE2F 



EA0D 213BEA 
EA10 061B 
EA12 CD2AEA 



EA15 C300F8 



EA18 2156EA 
EAIB 060E 
EAID CD2AEA 
EA20 C30DEA 



EA23 0E70 



LINE 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 BSX61 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 BSX8! 

792 

793 

794 

795 

796 

797 

798 

799 

800 

801 

802 

803 BSX9: 

804 

805 

806 

807 

808 

809 

810 

811 

812 

813 

814 BSX10: 

815 

816 

817 

818 

819 

820 

821 

822 

823 BDLY: 

824 



SOURCE STATEMENT 



JNZ 

IN 

ORA 

JNZ 

IN 

RRC 

JNC 



JMP 

RLC 

JC 

LDA 

ORA 

JNZ 

MVI 

CALL 

RRC 

JNC 

MVI 
STA 
MVI 
STA 
MVI 
JMP 



I. 

LXI 
MVI 
CALL 

J. 

JMP 

K. 



LXI 
MVI 
CALL 
JMP 



BSX6 

RSTS 

A 

BSX10 

DSTS 

BSX9 



BSX8 



BSX9 

TRK0-2 

A 

BSX10 

B,RDSTS 

lOCDPl 

BSX9 

A, (OUT CPUC) 

TRK0-2 

A, CPUC 

TRK0-1 

A,BTDGOF 

TRK0-2 
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JUMP IF INTEGRATED CONSOLE ACCESSED 

SAMPLE FDCC RESULT STATUS 

SET CONDITION CODES 

JUMP IF ERROR CONDITION 

SAMPLE FDCC STATUS 

IS IT READY? 

JUMP TO MONITOR IF DISK NOT READY 

OTHERWISE, PRIOR TO TRANSFERRING CONTROL 

TO T0.BOOT, WRITE AN INSTRUCTION TO 

TURN OFF BOOTSTRAP PROM 



TEST FOR NON DISK ACCESS 

JUMP IP NO ACCESS 

LOAD TEMPORARY STORAGE FOR RESULT BYTE 

SET CONDITION CODES 

JUMP IP ERROR CONDITION 

LOAD FLOPPY DEVICE STATUS COMMAND 

READ STATUS FROM I/O CONTROLLER 

TEST FOR DRIVE READY 

JUMP IF NOT READY 

LOAD OUTPUT INSTRUCTION 
STORE IN RAM BEFORE DISK BOOT 
LOAD PORT ADDRESS 

TURN OFF BOOTSTRAP/DIAGNOSTIC ROM 
EFFECT IS SAME AS: MVI A,BTDGOF 
OUT CPUC 
JMP TRK0 



OTHERWISE, TYPE SIGN-ON FOR RAM MONITOR 



H,VERS 
B , LVER 
PRTM 



HL POINTS TO ADDRESS OF SIGN-ON MESSAGE 
B CONTAINS LENGTH OF MESSAGE 
PRINT SIGN-ON MESSAGE 



BOOTSTRAP ALL DONE, SO BRANCH TO MONITOR. 

BEGIN ; AT THIS POINT, INTERRUPTS ARE DISABLED 

PRINT DISK ERROR MESSAGE 



H,ERMSG 
B,LERM 
PRTM 
BSX9 



HL POINTS TO ADDRESS OF DISK ERROR MESSAGE 
B CONTAINS LENGTH OF MESSAGE 
PRINT SIGN-ON MESSAGE 
PRINT MESSAGE 



BDLY - BOOTSTRAP DELAY 1 MS SUBROUTINE 



MVI 



C,ONEMS 



LOAD 1 MS. CONSTANT 
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LOC OBJ 



EA25 0D 
EA26 C225EA 
EA29 C9 



EA2A 4E 
EA2B CD09F8 
EA2E 23 
EA2F 05 
EA30 C22AEA 
EA33 C9 



EA34 80 
EA35 04 
EA36 lA 
EA37 00 
EA38 01 
EA39 0030 



EA3B 0D 
EA3C 0A 
EA3D 53455249 
EA41 45532049 
EA45 49204D4F 
EA49 4E49544F 
EA4D 522C2056 
EA51 31 
EA52 2E 
EA53 33 
EA54 0D 
EA55 0A 
001B 



EA56 0D 
EA57 0A 
EA58 4449534B 
EA5C 20455252 
EA60 4F52 
EA62 0D 
EA63 0A 
000E 
EA64 56 



LINE 

825 BDLYl; 

826 

827 

828 

829 

830 

831 

832 

833 PRTM: 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

«44 lOPB: 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 VERS; 



SOURCE STATEMENT 



C 

BDLYl 



; DECREMENT COUNTER 
; JUMP IF NOT EXPIRED 



DCR 

JNZ 
RET 

PRTM - PRT SUBROUTINE FOR SIGN-ON MESSAGES 



; C CONTAINS A CHARACTER FROM THE MESSAGE 
; PRINT ON CONSOLE 



MOV C,M 

CALL COP 

INX H 

DCR B 

JNZ PRTM 
RET 

DISK I/O PARAMETER BLOCK 



; KEEP LOOPING UNTIL ENTIRE MESSAGE IS OUTPUT 



DB 
DB 
DB 
DB 
DB 
DW 



80H 

04H 

26 



1 

TRK0 



lOCW, NO UPDATE BIT SET 

I/O INSTRUCTION, READ DISK 

READ 26 SECTORS 

TRACK 

SECTOR 1 

LOAD ADDRESS 



MONITOR SIGN-ON MESSAGE 

DB CR,LF, 'SERIES II MONITOR, V 



855 



856 

857 LVER 

858 

859 

860 

861 ERMSG; 



DB 



VER/10+'0' ,' .' ,VER MOD 10+'0' 



DB CR,LF 

EQU $-VERS ; LENGTH OF SIGN-ON MESSAGE 

MONITOR ERROR SIGN-ON MESSAGE 

DB CR,LF,'DISK ERROR', CR,LF 



862 LERM EQU $-ERMSG ; LENGTH OF ERROR SIGN-ON MESSAGE 

863 BTCKSM: DB 056H ; BOOT CHKSUMS TO 55H 

864 • *-*—*—*—*-*-*—*—*—*—*—*-*—*-*-*-*-***—*—*-*—*—*-*-*-*—*—*—*-*—*-*—*—* 
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LOG OBJ 



LINE 



SOURCE STATEMENT 







865 
866 


; EXIT 


CODE TEMPLATE, TO BE E 






867 


; THIS 


CODE IS 


ORIGINATED SO 






868 


; AGAINST THE 


TOP OF A PAGE ( 






869 








EAG8 




870 
871 


TOS: 


ORG 


BBASE + 02C8H 


EAG0 




872 


USER 


EQU 


TOS-8 


EAG8 


EE 


873 


ELOC: 


DB 


0EEH 


EAG9 


DD 


874 


DLOG: 


DB 


0DDH 


EACA 


CG 


875 


CLOG: 


DB 


0GCH 


EACB 


BB 


876 


BLOC: 


DB 


0BBH 


EAGG 


00 


877 
878 
879 




DB 





EAGD 


FE 


880 


I LOG: 


DB 


NOT INT0 


EAGE 


FF 


881 


FLOG: 


DB 


0FFH 


EACF 


AA 


882 


ALOG: 


DB 


0AAH 


EAD0 


G0 


^83 




DB 


USER AND HMSK 


EADl 


00 


884 
885 
886 


SLOG: 
EXIT: 


DB 





EAD2 


F3 


887 




DI 




EAD3 


Dl 


888 




POP 


D 


EAD4 


CI 


889 




POP 


B 


EAD5 


Fl 


890 




POP 


PSW 


EAD6 


D3FG 


891 




OUT 


SOCPl 


EAD8 


Fl 


892 




POP 


PSW 


EAD9 


El 


893 




POP 


H 


EADA 


F9 


894 




SPHL 




EADB 


213412 


895 
896 




LXI 


H,1234H 


EADC 




897 


LLOC 


EQU 


$-2 


EADD 




898 


HLOG 


EQU 


$-1 


EADE 


FB 


899 




EI 




EADF 


C38967 


900 
901 
902 




JMP 


6789H 


EAEl 




903 


PLOG 


EQU 


$-1 


EAE2 


0000 


904 


TLOG: 


DW 





EAE4 


00 


905 




DB 





EAE5 


0000 


906 




DW 





EAE7 


00 


907 
908 
909 
910 
911 


XTBL: 
CI LOG: 


DB 





EAE8 


C30000 


912 
913 


GOLOG: 


JMP 





EAEB 


C30000 


914 
915 


RILOC: 


JMP 





EAEE 


C30000 


916 

917 


R2L0C: 


JMP 





EAFl 


C30000 


918 
919 


PILOG: 


JMP 






BASE OF MONITOR WORK STACK 

BASE OF DEFAULT USER WORK STACK 

E REGISTER STORAGE 

D REGISTER 

C REGISTER 

B REGISTER 

CONFIGURATION BYTE 

BIT = IF INTEGRATED CRT IS PRESENT 

= 1 IF INTEGRATED CRT NOT PRESENT 
INTERRUPT MASK 
CPU FLAGS 
A REGISTER 
LOW(SP) 
HIGH(SP) 

MONITOR STACK ORIGIN 

DISABLE INTERRUPTS TO PROTECT THIS SEQUENCE 

RESTORE D,E 

RESTORE B,C 



RESTORE A AND FLAGS 

RESTORE ORIGINAL STACK VALUE 

RESTORE H,L; 1234H IS FILLER WHICH WILL BE 
OVERWRITTEN BY RESTART ROUTINE 



ENABLE INTERRUPTS 

RETURN TO INTERRUPTED CODE; 6789H IS FILLER 

WHICH WILL BE OVERWRITTEN BY 'G' COMMAND 

AND RESTART ROUTINE 

TRAP 1 ADDRESS 

TRAP 1 VALUE 

TRAP 2 ADDRESS 

TRAP 2 VALUE 

EXTENSIBLE I/O ENTRY POINTS 

FILLED IN WHEN USER GIVES ADDRESS OF OWN 
DRIVER ROUTINE VIA lODEF SYSTEM GALL IN MONITOR 
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LOG OBJ 
EAF4 C30000 
EAF7 G30000 
EAFA G30000 
EAFD C30000 



0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 



EB00 
EB03 
EB00 



EB00 C9 
EB01 00 
EB02 00 
EB03 C9 



F800 
F800 



F800 C351F8 
F803 C3BEFB 



LINE 

920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 



SOURCE STATEMENT 



P2L0C: 
LILOC: 
CSLOC: 
ENDX: 



JMP 
JMP 
JMP 
JMP 



THIS LABEL SHOULD BE AT 0EA00H. 

; SELECTION CODES FOR USER I/O ENTRY POINTS 

UCI EQU (CIL0C-XTBL)/3 

UCO EQU (C0L0C-XTBL)/3 

URl EQU {RlL0G-XTBL)/3 

UR2 EQU (R2LOG-XTBL)/3 

UPl EQU (PlL0C-XTBL)/3 

UP2 EQU (P2LOC-XTBL)/3 

ULl EQU (LlL0C-XTBL)/3 

UCS EQU (CSL0C-XTBL)/3 

; END OF BOOTSTRAP PROM CODE 

0EB00H ; STARTING ADDRESS OF DIAGNOSTIC PROGRAM 

WHEN ENTERED FROM CALL FROM MONITOR 
0EB03H ; STARTING ADDRESS OF DIAGNOSl-IC PROGRAM 

WHEN ENTERED FROM CALL FROM BOOT 
0EB00H ; WHEN BURNING THE PROM, THIS SECTION OF CODE 

WILL BE OVERLAYED BY THE REAL DIAGNOSTIC 

PROGRAM. 



DIAGMN EQU 

DIAGBT EQU 

ORG 



RET 
NOP 
NOP 
RET ; 0EB03H 

; BOOTSTRAP/DIAGNOSTIC PROM 
f****************************************************.************************* 
f***************************************************************************** 
f**************************************************************************** 
•*** *** 

;*** START OF MONITOR PROPEfi *** 

•*** *** 

ficlilileie************************************************************************* 

BASE SET 0F800H ; BASE ADDRESS OF MONITOR 

ORG BASE ; TOP 2K OF 64K ADDRESS SPACE 

BRANCH TABLE FOR I/O SYSTEM (EXTERNAL I/O ENTRY POINTS) 

THE MONITOR IS ENTERED AT ENTRY POINT 'BEGIN' VIA A JUMP FROM THE BOOTSTRAP; 
THIS IN TURN LEADS TO A JUMP TO ENTRY POINT "START". THE OTHER ENTRIES 
IN THIS "TABLE" ARE EXTERNAL I/O ENTRY POINTS KNOWN TO THE USER PLUS 
THE DATE, VERSION, AND COPYRIGHT STAMPS. 
BEGIN: 

JMP START0 ; RESET ENTRY POINT 

JMP CI ; LOCAL CONSOLE INPUT 
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LOC OBJ 



F806 
F809 
F80C 
F80F 
F812 
F815 
F818 
F81B 
F81E 
F821 
F824 
F826 
F829 
F82C 
F82F 
F830 
F834 
F838 
F83C 
F840 
F841 
F844 



C30FFC 

C39FFC 

C3E9FC 

C31EFD 

C344FD 

C383FD 

C387FD 

C38CFD 

C394FD 

C37FFF 

0301 

C3ADFD 

C3BEFD 

C3CEFD 

13 

28432949 

4E54454C 

20434F52 

50313937 

39 

C3A6FF 

C394FF 



F847 2A0400 
F84A 2EC8 
F84C F9 
F84D CDDEFC 
F850 23 



LINE 

975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 



991 

992 

993 

994 

995 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 



SOURCE STATEMENT 



JMP 


RI 




JMP 
JMP 
JMP 


CO 
PO 
LO 




JMP 


CSTS 




JMP 


lOCHK 




JMP 
JMP 


lOSET 
MEMCHK 




JMP 


lODEF 




JMP 


lOCDRl , 




DW 


DATE 




JMP 


UI 




JMP 


UO 




JMP 


UPPS 




DB 


VERH 




DB 


' (C) INTEL CORP1979 



READER INPUT 

LOCAL CONSOLE OUTPUT 

PUNCH OUTPUT 

LIST OUTPUT 

LOCAL CONSOLE INPUT STATUS 

I/O SYSTEM STATUS 

SET I/O CONFIGURATION 

COMPUTE SIZE OF MEMORY 

DEFINE USER I/O ENTRY POINTS 

IOC INPUT 

DATE STAMP FOR MONITOR ROM 

UPP INPUT 

UPP OUTPUT 

UPP STATUS 

VERSION STAMP FOR MONITOR ROM 

• ; COPYRIGHT NOTICE IN ASCII REP 



JMP lOCCOM ; lOCCOM ENTRY POINT 

JMP I0CDR2 ; IOC OUTPUT 

'ERROR' - ENTERED VIA JUMP FROM VARIOUS ROUTINES WHEN AN ERROR IS DETECTED 

PROCESS: ABNORMAL EXIT FOR ALL MONITOR ERROR CONDITIONS. BECAUSE OP THE 

UNKNOWN STATE OF THE MONITOR AS A RESULT OF A COMMAND OR DATA ERROR, 
THE VALUE OF THE MONITOR STACK POINTER IS REINITIALIZED AND 
EXECUTION CONTINUES TO THE MAIN COMMAND LOOP. 

INPUT: MEMTOP,TOS 

OUTPUT: SP POINTS TO BASE OF MONITOR STACK IN TOP PAGE OF CONTIGUOUS RAM 

MODIFIED: H,L, SP 

STACK USAGE: 

REGISTER USAGE 

X =» MODIFIED BY THIS ROUTINE, CONTENTS UNDEFINED. 
S = SET BY THIS ROUTINE, RETURNED AS A RESULT. 
U » USED AS INPUT. 



A - 
B - 
D - 
H - X 
CARRY - X 
SIGN - X 
SP - S 
STACK USAGE: 



C - S 
E - 
L - X 
ZERO - 
PARITY 
PC - 
BYTES 



- X 



ERROR: 



LHLD 

MVI 

SPHL 

CALL 

DB 



MEMTOP 

L,TOS AND 0FFH 

COMC 



H POINTS TO TOP PAGE OP MEMORY 
L POINTS TO BASE OF STACK WITHIN THAT PAGE 
SP NOW POINTS TO BASE OF MONITOR STACK 
OUTPUT THE ERROR INDICATOR CHAR '#' 



; FALL THROUGH TO MAIN COMMAND LOOP 
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LOC OBJ 



LINE 



SOURCE STATEMENT 



F851 


3E04 


F853 


D3FF 


F855 


FB 


F856 


CDFEFD 


F859 


CDDEFC 


F85C 


2E 


F85D 


CD61FF 


F860 


FE0D 


F862 


CA55F8 


F865 


D641 


F867 


FA47F8 


F86A 


0E02 


F86C 


1155F8 


F86F 


D5 



F870 2182F8 
F873 FEIA 
F875 F247F8 
F878 5F 
F879 1600 
F87B 19 
F87C 19 

F87D 7E 
F87E 23 
F87F 66 
F880 6F 
F881 E9 



F882 B6F8 



1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 



MAIN COMMAND LOOP. 

THIS LOOP IS THE STARTING POINT OF ALL COMMAND SEQUENCES. 

IT IS ENTERED VIA A JUMP FROM THE BEGINNING OF THE MONITOR PROPER 

A FALL THROUGH FROM THE ERROR ROUTINE, OR A RETURN FROM A MONITOR 

ROUTINE. 

IN THIS CODE INTERRUPTS ARE ENABLED AND A CARRIAGE RETURN 

AND LINE FEED ARE TYPED ALONG WITH THE PROMPT CHARACTER, '.'. 

WHEN A CHARACTER IS ENTERED FROM THE LOCAL CONSOLE KEYBOARD, IT 

IS CHECKED FOR VALIDITY, THEN A BRANCH TO THE PROPER 



CODE, 
COMMAND 



START0! 



START: 



MVI 
OUT 

EI 

CALL 

CALL 

DB 

CALL 

CPI 

JZ 

SUI 

JM 

MVI 

LXI 

PUSH 



LXI 

CPI 

JP 

MOV 

MVI 

DAD 

DAD 

MOV 
INX 
MOV 
MOV 
PCHL 



A,BTDGOF 
CPUC 



CRLF 

COMC 
I I 

TI 

CR 

START 

'A' 

ERROR 

C,2 

D, START 

D 



H,CTBL 

LCT 

ERROR 

E,A 

D,0 

D 

D 

A,M 
H 

H,M 
L,A 



DISABLE BOOT, I.E. SWITCH BOOT PROM 
OUT OF ADDRESSABLE MEMORY SPACE 

ENABLE INTERRUPTS 
TYPE <CR>,<LF> 
OUTPUT A PERIOD 



ECHO IT. 
RETURN? 



GET A CHARACTER, 

IS IT A CARRIAGE 

JUMP IF IT IS 

OTHERWISE TEST FOR A-Z (VALID COMMAND RANGE) 

LESS THAN A, NOT A VALID COMMAND 

ASSUME THE COMMAND NEEDS 2 PARAMETERS 

SET UP PSEUDO RETURN ADDRESS TO SIMULATE 

EFFECT OF A CALL. COMMANDS WHICH PERFORM 
A RETURN WILL CAUSE THE STACK TO BE 
POPPED, THUS RETURNING TO ENTRY POINT 
START. THE 'G' COMMAND, HOWEVER, WIPES 
OUT THIS ADDRESS WITH ANOTHER ADDRESS 
OF ITS OWN CHOOSING (I.E. USER'S PC). 

LOAD POINTER TO PROCESSING ROUTINE PTRS 

TEST FOR OVERRUN 

IF SO, THEN ERROR 

OTHERWISE, MOVE INDEX TO DE 



HL := CTBLBASE + (2 * INDEX); HL NOW POINTS 

TO PROPER COMMAND IN COMMAND BRANCH TABLE 
GET LSB OF BRANCH LOCATION 



GET MSB OF BRANCH LOCATION 

HL POINTS TO ADDRESS OF COMMAND CODE 

TAKE THE BRANCH 



COMMAND BRANCH TABLE. 

THIS TABLE CONTAINS THE ADDRESSES OF THE ENTRY POINTS OF 
ALL THE COMMAND PROCESSING ROUTINES. IT IS ENTERED FROM THE MAIN 
COMMAND LOOP. NOTE THAT AN ENTRY TO 'ERROR' 

IS AN ERROR CONDITION, I.E., NO COMMAND CORRESPONDING TO THAT 
CHARACTER EXISTS. 
CTBL: 

DW ASSIGN ; A - ASSIGN I/O UNITS 
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LOC OBJ 



F884 
F886 
F888 
F88A 
F88C 
F88E 
F890 
F892 
F894 
F896 
F898 
F&9A 
F89C 
F89E 
F8A0 
F8A2 
F8A4 
F8A6 
F8A8 
F8AA 
F8AC 
F8AE 
F8B0 
F8B2 
F8B4 
001A 



47F8 
47F8 
33F9 
5FF9 
7DF9 
8CF9 
D5F9 
47F8 
47F8 
47F8 
47F8 
F0F9 
01FA 
47F8 
47F8 
14FA 
52 FA 
BFFA 
47F8 
47F8 
47F8 
DDFA 
26 FB 
47F8 
A6FB 



F8B6 CD61FF 
F8B9 2103F9 
F8BC 0E04 



F8BE BE 
F8BF 23 
F8C0 CACDF8 
F8C3 23 
F8C4 23 
F8C5 23 
F8C6 0D 
F8C7 C2BEF8 
F8CA C347F8 



F8CD 46 
F8CE 23 
F8CF 5E 
F8D0 23 
F8D1 56 



LINE 

1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 



SOURCE STATEMENT 



DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
LCT EQU 



ERROR 

ERROR 

DISP 

EOF 

FILL 

GOTO 

HEXN 

ERROR 

ERROR 

ERROR 

ERROR 

MOVE 

NULL 

ERROR 

ERROR 

QUERY 

READ 

SUBS 

ERROR 

ERROR 

ERROR 

WRITE 

X 

ERROR 

Z 

($-CTBL)/2 



B - 
C - 
D - 
E - 
F - 
G - 
H - 
I - 
J - 
K - 
L - 
M - 
N - 
- 
P - 
Q - 
R - 
S - 
T - 
U - 

V - 
W - 
X - 

Y - 
Z - 
LCT 



DISPLAY RAM MEMORY 

ENDFILE A HEXADECIMAL FILE 

FILL MEMORY 

GO TO MEMORY ADDRESS 

HEXADECIMAL SUM AND DIFFERENCE 



MOVE MEMORY 

PUNCH NULLS FOR LEADER ON PAPER TAPE 



QUERY I/O SYSTEM STATUS 

READ HEXADECIMAL PAPER TAPE FILE 

SUBSTITUTE MEMORY 



WRITE FILE TO PAPER TAPE IN HEX FORMAT 
EXAMINE AND MODIFY REGISTERS 

INVOKE THE DIAGNOSTIC PROGRAM 

= NUMBER OF 16-BIT ENTRIES IN TABLE 



'A' COMMAND - ASSIGN I/O DEVICE 

THIS ROUTINE MAPS SYMBOLIC DEVICE IDENTIFIERS TO BITS 

IN THE I/O STATUS BYTE (lOBYT) TO ALLOW FOR LOCAL CONSOLE 

MODIFICATION OF SYSTEM I/O CONFIGURATION. 



ASSIGN: 



AS0: 



CALL 

LXI 

MVI 



TI 

H,LTBL 

C,4 



GET LOGICAL DEVICE CHARACTER (C,R,P,L) 
ADDRESS OF MASTER TABLE 
MAXIMUM OF 4 ENTRIES 



CMP 

INX 

JZ 

INX 

INX 

INX 

DCR 

JNZ 

JMP 



M 

H 

ASl 

H 

H 

H 

C 

AS0 

ERROR 



HL POINTS TO IDENTIFYING CHARACTER IN LTBL 
DOES A-REG CONTAIN C,R,P, OR L? 
HL POINTS TO CORRESPONDING DEVICE MASK 
YES IT DOES 



HL POINTS TO NEXT 4-BYTE ENTRY IN LTBL 
DECREMENT LOOP COUNT 
TRY NEXT ENTRY 
NO MATCH, ERROR 



ASl! 



MOV 
INX 
MOV 
INX 
MOV 



B,M 

H 

E,M 

H 

D,M 



USER HAS SPECIFIED A VALID LOGICAL DEVICE 
B := LOGICAL DEVICE MASK 

HL CONTAINS SUBORDINATE PHYS .DEV.TBL. ADDRESS 
E CONTAINS LSB OF PDT ADDRESS 

; D CONTAINS MSB OF PDT ADDRESS 
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LOC OBJ 
F8D2 EB 



P8D3 CD61FP 
F8D6 FE3D 
F8D8 C2D3F8 



P8DB CD61FF 
F8DE FE20 
F8E0 CADBF8 

F8E3 0E04 

F8E5 BE 
F8E6 23 
F8E7 CAF2F8 
F8EA 23 
F8EB 0D 
F8EC C2E5F8 
F8EF C347F8 



F8F2 CD61FF 
F8F5 FE0D 
F8F7 C2F2F8 
F8FA 3A0300 
F8FD A0 



F8FE B6 
F8FF 320300 
F902 C9 



F903 


43 


F904 


FC 


F905 


13F9 


F907 


52 


F908 


F3 


F909 


1BF9 


F90B 


50 


F90C 


CF 


F90D 


23F9 


F90F 


4C 


F910 


3F 



AS2i 



AS3: 
ALUP3: 



LINE 

1136 
1137 

1138 ; 

1139 ALUPl: 
1140 

1141 
1142 

1143 ; 

1144 ALUP2: 
1145 

1146 

1147 

1148 ; 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 LTBL 

1180 

1181 
1182 

1183 
1184 

1185 
1186 



SOURCE STATEMENT 



XCHG 



CALL 

CPI 

JNZ 



TI 
ALUPl 



CALL 

CPI 

JZ 



TI 



ALUP2 



MVI 

CMP 

INX 

JZ 

INX 

DCR 

JNZ 

JMP 



C,4 

M 

H 

AS 3 

H 

C 

AS 2 

ERROR 



CALL 

CPI 

JNZ 

LDA 

ANA 



ORA 
STA 
RET 



TI 

CR 

ALUP3 

lOBYT 

B 



M 
lOBYT 



; HL POINTS TO I/O SYSTEM PHYSICAL DEVICE 
; TABLE (I.E. ACT, ART, APT, OR ALT) 



SCAN INPUT UNTIL 



; SCAN INPUT WHILE 



(BLANK) 



SET TABLE LENGTH 

INDEX THROUGH PHYSICAL UNIT TABLE 

COMPARE DEVICE CHAR WITH LEGAL VALUES 

HL CONTAINS DEVICE SELECT BIT PATTERN 

USER HAS SPECIFIED A VALID PHYS. DEVICE ASSIGNMNT 

HL POINTS TO NEXT ENTRY WITHIN THE TABLE 

CONTINUE LOOKUP 
ERROR RETURN 



; SCAN INPUT UNTIL <CR> 



GET I/O STATUS 

B CONTAINS LOG DEV MASK. CLEAR OUT THE 

APPROPRIATE FIELD IN lOBYT BECAUSE WE ARE 

GOING TO CHANGE IT. 
PUT IN THE NEW STATUS FIELD 
RETURN IT TO MEMORY 
RETURN CONTROL TO MAIN COMMAND LOOP 



MASTER I/O DEVICE TABLE 
4 BYTES/ENTRY 

BYTE = IDENTIFYING CHARACTER 

BYTE 1 = LOGICAL DEVICE MASK 

BYTES 2,3 = ADDRESS OF SUBORDINATE PHYSICAL DEVICE TABLE 



DB 



DW 
DB 



DW 

DB 



DW 
DB 



•C',CMSK 

ACT 
•R',RMSK 

ART 

•P' ,PMSK 

APT 

•L' ,LMSK 
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LOC OBJ 
F911 2BF9 



F913 54 
F914 00 
F915 43 
F916 01 
F917 42 
F918 02 
F919 31 
F91A 03 

F91B 54 
F91C 00 
F91D 50 
F91E 04 
F91F 31 
F920 08 
F921 32 
F922 0C 

F923 54 
F924 00 
F925 50 
F926 10 
F927 31 
F928 20 
F929 32 
F92A 30 

F92B 54 
F92C 00 
F92D 43 
F92E 40 
F92F 4C 
F930 80 
P931 31 
P932 00 



LINE 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 ACT: 

1196 

1197 

1198 

1199 

1200 ART: 
1201 

1202 

1203 

1204 

1205 APT: 
1206 

1207 

1208 

1209 

1210 ALT: 
1211 

1212 

1213 

1214 



SOURCE STATEMENT 

DW ALT 

I/O SYSTEM PHYSICAL DEVICE TABLES 
2 BYTES/ENTRY 

BYTE = IDENTIFYING CHARACTER 
BYTE 1 = DEVICE SELECT BIT PATTERN 



DB 
DB 
DB 
DB 

DB 
DB 
DB 
DB 

DB 
DB 
DB 
DB 

DB 
DB 
DB 
DB 



'T',CTTY 
'C',CCRT 
'B', BATCH 
'l',CUSE 

'T',RTTY 
'P',RPTR 
•l',RUSEl 
'2',RUSE2 

•T',PTTY 
ipi ^ppTP 

•l',PUSEl 
•2' ,PUSE2 

•T',LTTY 
•C',LCRT 
'L',LLPT 
'l',LUSE 



LOCAL CONSOLE = TTY 

LOCAL CONSOLE = CRT 

BATCH MODE LOCAL CONSOLE = READ, LIST 

USER DEFINED LOCAL CONSOLE DEVICE 

READER = TTY 

READER = PTR 

USER DEFINED READER DEVICE 1 

USER DEFINED READER DEVICE 2 

PUNCH = TTY 

PUNCH = PTP 

USER DEFINED PUNCH DEVICE 1 

USER DEFINED PUNCH DEVICE 2 



; LIST 
; LIST 
; LIST 



TTY 
CRT 
LPT 



; USER DEFINED LIST DEVICE 



1215 ; *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* 

1216 ; 



1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 



•D' COMMAND - DISPLAY CONTENTS OP MEMORY ON LIST DEVICE 

THIS ROUTINE EXPECTS TWO HEXADECIMAL PARAMETERS SPECIFYING 
THE BOUNDS OF A MEMORY AREA TO BE DISPLAYED ON THE 
LIST DEVICE. THE MEMORY AREA IS DISPLAYED 16 BYTES 
PER LINE, WITH THE MEMORY ADDRESS OF THE FIRST BYTE 
PRINTED FOR REFERENCE. ALL LINES ARE BLOCKED INTO INTEGRAL 
MULTIPLES OF 16 FOR CLARITY, SO THE FIRST AND LAST LINES MAY 
BE LESS THAN 16 BYTES IN ORDER TO SYNCHRONIZE THE DISPLAY. 
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LOC OBJ 



P933 


CD39FE 


F936 


Dl 


F937 


El 


F938 


CD6AFE 


F93B 


CD07FE 


F93E 


0E20 


F940 


CD14FD 


F943 


7E 


F944 


CD0CFE 


F947 


CD4CFE 


F94A 


DA56F9 


F94D 


7D 


F94E 


E60F 


F950 


C23EF9 


F953 


C338F9 


F956 


CD6AFE 


F959 


0E00 


F95B 


CD14FD 


F95E 


C9 



F95F 


0D 


F960 


CD39FE 


F963 


CDE5FC 


F966 


3A 


F967 


AF 


F968 


57 


F969 


CDAFFE 


F96C 


El 


F96D 


CDAAFE 


F970 


3E01 


F972 


CDAFFE 


F975 


AF 


F976 


92 


F977 


CDAFFE 


F97A 


C309FA 



LINE 

1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 



SOURCE STATEMENT 



DISP! 

DI0: 
DIl: 



DI2: 



CALL 

POP 

POP 

CALL 
CALL 

MVI 

CALL 

MOV 

CALL 

CALL 

JC 

MOV 

AN I 

JNZ 

JMP 

CALL 
MVI 
CALL 
RET 



EXPR 

D 

H 

LCRLF 
DADR 

C,' ' 

LOM 

A,M 

DBYTE 

HILO 

DI2 

A,L 

0FH 

DIl 

DI0 

LCRLF 

C,0 

LOM 



*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_ 



; GET TWO ADDRESSES 

; GET HIGH ADDRESS 

; GET LOW ADDRESS 

; PRINT CR,LF 

; PRINT MEMORY ADDRESS 



; PRINT SPACE 

; PRINT DATA 

. .pEsi. pQi^ COMPLETION 

; RETURN TO MAIN LOOP 

; PRINT CR,LF, ADDRESS ON MULTIPLE OF 16 

; WRITE CR,LF 

; WRITE A NULL TO TRIGGER CLOSE 



'E' COMMAND - PUNCH HEXADECIMAL END-OF-FILE 

THIS ROUTINE PRODUCES A TERMINATION RECORD WHICH PROPERLY 
COMPLETES A HEXADECIMAL FILE CREATED BY 'W' COMMANDS. 
IT EXPECTS ONE HEXADECIMAL PARAMETER, WHICH IT INTERPRETS AS THE 
START ADDRESS TO BE LOADED INTO THE USER'S PROGRAM COUNTER (LOCATED 
IN EXIT TEMPLATE) ON A SUBSEQUENT 'R' COMMAND; THIS START ADDRESS 
WILL REPLACE THE STORED VALUE OF THE USER'S PROGRAM COUNTER ONLY 
IF THE START ADDRESS IS NONZERO. 



EOF: 



DCR 


C 


CALL 


EXPR 


CALL 


POC 


DB 


■ . 1 


XRA 


A 


MOV 


D,A 


CALL 


PBYTE 


POP 


H 


CALL 


PADR 


MVI 


A,l 


CALL 


PBYTE 


XRA 


A 


SUB 


D 


CALL 


PBYTE 


JMP 


NU0 


-*-*-*- 


.*-*_*_* 



_*_*_*-*-*- 



C:=l; GET ONE PARAMETER 

PUT <START ADDRESS> ON TOP OF STACK 

OUTPUT RECORD MARK ( ' : ' ) 

ZERO CHECKSUM 

D ;= 0; A ;= 

OUTPUT A RECORD LENGTH OF ZERO 

RETRIEVE START ADDRESS 

OUTPUT IT AS THE LOAD ADDRESS 

RECORD TYPE = 1 

OUTPUT RECORD TYPE 

A := 

D CONTAINS RUNNING CHECKSUM 

OUTPUT CHECKSUM := -D 

PUNCH TRAILER AND RETURN 



'F' COMMAND - FILL RAM WITH 8-BIT CONSTANT 
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LOC OBJ 



F97D 0C 
F97E CD39FE 
F981 CI 
F982 Dl 
F983 El 

F984 71 
F985 CD4CFE 
F988 D284F9 
F98B C9 



F98C 2A040J 
F98F 2ED2 



LINE 

1281 

1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

129S 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 



SOURCE STATEMENT 

; THIS ROUTINE EXPECTS THREE HEXADECIMAL PARAMETERS, THE 
; FIRST AND SECOND (16 BITS) ARE INTERPRETED AS THE BOUNDS 
; OF A MEMORY AREA TO BE INITIALIZED TO A CONSTANT VALUE, 
; THE THIRD PARAMETER (8 BITS) IS THAT VALUE. 
FILL: 

C 

EXPR 



FI0; 



INR 

CALL 

POP 

POP 

POP 

MOV 
CALL 
JNC 
RET 



C:=3; GET 3 PARAMETERS 



D 
H 

M,C 

HILO 

FI0 



C := 8-BIT CONSTANT 
DE := HIGH ADDRESS 
HL := LOW ADDRESS 

STORE CONSTANT IN MEMORY 
TEST FOR COMPLETION 
CONTINUE LOOPING 
GO BACK TO START 



•G' COMMAND - GO TO <ADDRESS>, OPTIONALLY SET BREAKPOINT (S) 

THE G COMMAND IS USED FOR TRANSFERRING CONTROL FROM THE 

MONITOR TO A USER PROGRAM. IT HAS SEVERAL MODES OF 

OPERATION. 

IF ONE HEXADECIMAL PARAMETER IS ENTERED, IT IS INTERPRETED 

AS THE ENTRY POINT OF THE USER PROGRAM AND A TRANSFER TO 

THAT LOCATION IS EXECUTED. 

IF ADDITIONAL (UP TO 2) PARAMETERS ARE ENTERED, THESE ARE 

CONSIDERED 'BREAKPOINTS', I.E., LOCATIONS WHERE 

CONTROL IS TO BE RETURNED TO THE MONITOR WHEN THEY ARE 

ENCOUNTERED IN COURSE OF EXECUTING THE USER PROGRAM. 

IF THE FIRST PARAMETER IS NOT ENTERED, THE STORED VALUE 

OF THE USER'S PROGRAM COUNTER (REGISTER P) IS USED AS 

THE USER PROGRAM ENTRY POINT. 

THIS COMMAND WORKS IN THE FOLLOWING MANNER: 

1 IT FINDS THE EXIT CODE IN TOP OF RAM AND PLACES THIS ADDRESS IN THE 
MONITOR'S STACK, REPLACING THE RETURN ADDRESS TO ENTRY POINT START 
THAT WAS PLACED THERE BY THE MAIN COMMAND LOOP. 

2. IF THERE IS NO FURTHER INPUT (I.E. ONLY <CR>) THEN BY EXECUTING A 
RET, WE CAUSE EXECUTION OF THE EXIT CODE, WHICH CONTAINS A JUMP TO 
A) A DUMMY ADDRESS (IF IMPROPER USE OF COMMAND) , B) THE PROGRAM 
COUNTER FROM WHEN THE USER PROGRAM WAS INTERRUPTED OR BREAKPOINT 
WAS ENCOUNTERED. 

3. IF THERE IS A START ADDRESS SPECIFIED, THIS VALUE IS STORED OVER 
THAT PART OF THE EXIT CODE WHICH CONTAINS THE JMP INSTRUCTION. 
IF THERE IS NO FURTHER INPUT, A RET IS EXECUTED AND THE EXIT 
CODE IS EXECUTED. 

4. IF TRAPS (BREAKPOINTS) ARE TO BE SET, THEN THEY ARE READ IN AND PLACED 
ON THE MONITOR STACK. THEY ARE THEN STORED IN THE PROPER SECTION OF 
THE EXIT TEMPLATE. ALSO, IN THE USER'S PROGRAM THE INSTRUCTION SPECIFIED 
BY THE BREAKPOINT ADDRESS IS SAVED IN THE EXIT TEMPLATE AND REPLACED 
WITH A RST INSTRUCTION. 

5. THE EXIT CODE IS EXECUTED AND CONTROL IS PASSED TO THE USER PROGRAM. 
GOTO: 

LHLD MEMTOP 

MVI L,EXIT AND 0FFH ; HL NOW POINTS TO EXIT CODE IN TOP OF RAM 
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LOG OBJ 



F991 E3 



F992 CDC5FE 
F995 CAA4F9 
F998 CD7AFE 
F99B EB 
F99C 2A0400 
P99F 2EE1 
F9A1 72 
P9A2 2B 
F9A3 73 

P9A4 DAD1F9 
F9A7 110200 

P9AA CDDEFC 
F9AD 2D 
F9AE CD74FE 
F9B1 E5 
F9B2 14 
F9B3 DABAF9 
F9B6 ID 
F9B7 C2AAF9 

F9BA D247F8 
F9BD 2A0400 
F9C0 2EE2 



F9C2 CI 
F9C3 71 
F9C4 23 
F9C5 70 
P9C6 23 
F9C7 0A 
F9C8 77 
F9C9 23 
F9CA 3EC7 
F9CC 02 
F9CD 15 
F9CE C2C2F9 

F9D1 CDFEFD 
F9D4 C9 



LINE 

1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 



GO0: 



GOl: 



G02: 



G03: 



G04: 



SOURCE STATEMENT 



XTHL 



CALL 


PCHK 


i 


JZ 


GO0 




CALL 


PA0 


1 


XCHG 




t 


LHLD 


MEMTOP 




MVI 


L,PLOC 


AND 0FFH ; 


MOV 


M,D 


1 


DCX 


H 




MOV 


M,E 


i 


JC 


G04 


1 


LXI 


D,2 


? 


CALL 


COMC 


1 


DB 


• _ • 




CALL 


PARAM 


. 


PUSH 


H 


1 


INR 


D 


r 


JC 


G02 


1 


DCR 


E 




JNZ 


GOl 


t 


JNC 


ERROR 


t 


LHLD 


MEMTOP 




MVI 


L,TLOC 


AND 0FFH ; 


POP 


B 


1 


MOV 


M,C 


t 


INX 


H 




MOV 


M,B 


• 


INX 


H 




LDAX 


B 


; 


MOV 


M,A 


t 


INX 


H 




MVI 


A, (RST 


0) 


STAX 


B 


t 


DCR 


D 




JNZ 


G03 


! 


CALL 


CRLF 




RET 




. 



PAGE 26 



REPLACE THE START RETURN ADDRESS IN THE 

STACK (PUSHED BY MAIN COMMAND LOOP) WITH 
THIS EXIT CODE ADDRESS SO THAT WHEN THE 
G COMMAND DOES A RETURN, THE EXIT CODE 
WILL BE EXECUTED INSTEAD OF THE MAIN 
COMMAND LOOP. 

GET A CHARACTER, SET Z,C 

IF ' ', ',', OR <CR>: JUMP, DON'T CHANGE PC 



GET 
DE = 



NEW PC VALUE 

■■ NEW PC 



HL NOW POINTS TO PLOC 
STORE MSB OF MODIFIED 



IN 
PC 



EXIT CODE IN TOP OF 
IN EXIT CODE IN RAM 



RAM 



STORE LSB OF MODIFIED PC IN EXIT CODE IN RAM 

JUMP IF <CR> (NO TRAPS TO BE SET) 
SET COUNTER (S), D=0, E=2 

ISSUE A PROMPT FOR A TRAP 

GET A TRAP 

STACK IT 

UP 1 COUNTER 

TERMINATE IF CR ENTERED 

DOWN THE OTHER 

GET ONE MORE TRAP 

D CONTAINS HOW MANY TRAPS (1 OR 2) 

LAST TRAP NOT FOLLOWED BY CR 

HL NOW POINTS TO TLOC (BEGINNING OF TRAP 

AREA) IN EXIT TEMPLATE IN TOP OP RAM 
BC CONTAINS THE USER SPECIFIED TRAP ADDRESS 
GET A TRAP (BREAKPOINT) ADDRESS 
STORE LSB OF TRAP ADDRESS INTO TRAP AREA 

STORE MSB OF TRAP ADDRESS INTO TRAP AREA 

FETCH OPCODE BYTE 
PUT IN TRAP AREA 



REPLACE 
WITH 



THE USER'S 
A RST 



OPCODE IN USER PROGRAM 



DO SAME THING AGAIN FOR 2ND BREAKPOINT 



EXECUTE MONITOR EXIT CODE, RETURNING TO 
; USER CODE 

; 'H' COMMAND - COMPUTE HEXADECIMAL SUM AND DIFFERENCE 

I 

; THIS ROUTINE EXPECTS TWO HEXADECIMAL PARAMETERS. 

; IT COMPUTES THE SUM AND DIFFERENCE OF THE TWO VALUES 

; AND DISPLAYS THEM ON THE LOCAL CONSOLE DEVICE AS FOLLOWS: 
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LOC OBJ 



F9D5 


CD39FE 


F9D8 


CDFEFD 


F9DB 


Dl 


F9DC 


El 


F9DD 


E5 


F9DE 


19 


F9DF 


CD56FE 


F9E2 


CD93FC 


F9E5 


El 


F9E6 


7D 


F9E7 


93 


F9E8 


6F 


F9E9 


7C 


F9EA 


9A 


F9EB 


67 


F9EC 


CD56FE 


F9EF 


C9 



F9F0 0C 
F9F1 CD39FE 
F9F4 CI 
F9F5 Dl 
P9F6 El 

F9F7 7E 
F9F8 02 
F9F9 03 
F9FA CD4CFE 
F9FD D2F7F9 
FA00 C9 



FA01 CD61FF 
FA04 FE0D 
FA06 C247P8 

FA09 063C 



LINE 

1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 



SOURCE STATEMENT 

; <P1+P2> <P1-P2> 

HEXN: 

CALL EXPR 

CALL CRLF 

POP D 

POP H 

PUSH H 

DAD D 

CALL LADR 

CALL ELK 

POP H 

MOV A,L 

SUB E 

MOV L,A 

MOV A,H 

SBB D 

MOV H,A 

CALL LADR 
RET 



GET TWO NUMBERS 

DE CONTAINS P2 

HL CONTAINS Pi 

HL := HL + DE := Pi + P2 

DISPLAY SUM 

TYPE A SPACE 

HL CONTAINS PI AGAIN 

COMPUTE HL-DE 

A 

A 



:= LSB OF PI - LSB OF P2 

:= LSB OF (PI - P2) 

:= MSB OF PI - MSB OF P2 WITH CARRY 

:= MSB OF (PI -P2) 



DISPLAY DIFFERENCE 



_*_*_*_*_*-*_*-*-*-*-*-*-*-*-*-*-*-*-*-* 



'M' COMMAND - MOVE A BLOCK OF MEMORY 

THIS ROUTINE EXPECTS THREE HEXADECIMAL PARAMETERS FROM THE 
LOCAL CONSOLE. THE FIRST AND SECOND PARAMETERS ARE THE BOUNDS OF 
THE MEMORY AREA TO BE MOVED, THE THIRD PARAMETER IS THE 
STARTING ADDRESS OF THE DESTINATION AREA. 
MOVE: 



INR 

CALL 

POP 

POP 

POP 



C 

EXPR 

B 

D 

H 



GET THREE ADDRESSES 

DESTINATION ADDRESS 
SOURCE END ADDRESS 
SOURCE START ADDRESS 



MV0: 



GET A DATA BYTE 
STORE AT DESTINATION 
MOVE DESTINATION POINTER 
TEST FOR COMPLETION 



MOV A,M 

STAX B 

INX B 

CALL HILO 

JNC MV0 
RET 

'N' COMMAND - PUNCH NULL CHARACTERS FOR TAPE LEADER/TRAILER 

THIS ROUTINE PUNCHES 60 NULL CHARACTERS ON THE DEVICE ASSIGNED 
AS THE PUNCH. IT IS ENTERED VIA A JUMP TO ENTRY POINT NU0 
FROM THE 'E' COMMAND AS WELL AS BEING INVOKED BY 
THE 'N' COMMAND. 



NULL: 



NU0: 



NLEADX! 



CALL 

CPI 

JNZ 

MVI 



TI 
CR 
ERROR 

B,60 



REQUIRE CR 



SET TO PUNCH 60 NULLS 
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LOC OBJ 

FA0B CDE5FC 
FA0E 00 
FA0F 05 
FA10 C20BFA 
FA13 C9 



FA14 


CD61FF 


FA17 


FE0D 


FA19 


C247F8 


FAIC 


0604 


FAIE 


2103F9 


FA21 


CDFEFD 


FA24 


4E 


FA25 


CD95FC 


FA28 


CDDEFC 


FA2B 


3D 


FA2C 


23 


FA2D 


7E 


FA2E 


2F 


FA2F 


4F 


FA30 


23 


FA31 


5E 


FA32 


23 


FA33 


56 


FA34 


23 


FA35 


EB 


FA36 


3A0300 


FA39 


Al 


FA3A 


C5 


FA3B 


0604 


FA3D 


4E 


FA3E 


23 


FA3F 


BE 


FA40 


CA48FA 


FA43 


23 


FA44 


05 


FA45 


C23DFA 


FA48 


CD95FC 


FA4B 


EB 


FA4C 


CI 


FA4D 


05 


FA4E 


C221FA 


FA51 


C9 



LINE 

1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 



SOURCE STATEMENT 

CALL POC 

DB 

DCR B 

JNZ NLEADX 
RET 



; PUNCH ONE ASCII NULL CHARACTER (=00H) 
; DO IT FOR 60 TIMES 



'Q' COMMAND - I/O SYSTEM STATUS QUERY 

THIS COMMAND IS INVOKED BY TYPING THE LETTER Q. THIS 
COMMAND PRODUCES A LISTING OF LOGICAL I/O DEVICES AND 
THEIR CORRESPONDING PHYSICAL DEVICE ASSIGNMENTS. THE 
DATA DISPLAYED IS EQUIVALENT TO THE CURRENT VALUE OF lOBYT. 
QUERY: 

; REQUIRE CR 



Q0! 



Ql: 



Q2: 



CALL 


TI 


CPI 


CR 


JNZ 


ERROR 


MVI 


B,4 



LXI 



H,LTBL 



CALL 


CRLF 


MOV 


CM 


CALL 


COM 


CALL 


COMC 


DB 


■ = ■ 


INX 


H 


MOV 


A,M 


CMA 




MOV 


C,A 


INX 


H 


MOV 


E,M 


INX 


H 


MOV 


D,M 


INX 


H 


XCHG 




LDA 


lOBYT 


ANA 


C 


PUSH 


B 


MVI 


B,4 


MOV 


CM 


INX 


H 


CMP 


M 


JZ 


Q2 


INX 


H 


DCR 


B 


JNZ 


Ql 


CALL 


COM 


XCHG 




POP 


B 


DCR 


B 


JNZ 


Q0 


RET 





SET UP OUTER LOOP COUNTER. 

THERE ARE 4 LOGICAL DEVICES. 
POINT HL AT LOGICAL DEVICE TABLE. 
OUTER LOOP 
START A NEW LINE. 
DISPLAY LOGICAL DEVICE IDENTIFIER. 

DISPLAY •='. 

POINT AT MASK FOR LOGICAL DEVICE. 

FETCH MASK. 

INVERT IT 

PUT IN C 

POINT AT PHYSICAL DEVICE TABLE 

ADDRESS OF SUBORDINATE 

TABLE 



HL <- PHYSICAL DEVICE TABLE 

PHYSICAL SELECTION 

SAVE OUTER LOOP COUNTER 

SET UP INNER LOOP COUNTER 

INNER LOOP 

GET PHYSICAL DEVICE IDENTIFIER 

TEST FOR EQUALITY 

POINT AT NEXT ENTRY 
DECREMENT INNER LOOP 



DISPLAY PHYSICAL DEVICE 
POINT AT MASTER TABLE 



DECREMENT OUTER LOOP 
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LOC OBJ 



FA52 0D 
FA53 CD39FE 
FA56 CDFEFD 

FA59 CD58FF 
FA5C FE3A 
FA5E C259FA 
FA61 AF 
FA62 57 
FA63 CDDBFD 



FA66 CA9EFA 

FA69 5F 
FA6A CDDBFD 
FA6D 67 
FA6E CDDBFD 
FA71 6F 
FA72 CDDBFD 
FA75 4B 
FA76 E5 
FA77 2100FF 
FA7A 39 



FA7B CDDBFD 



FA7E 77 
FA7F 23 



LINE 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1'517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 



SOURCE STATEMENT 
t_*_*_*_ *_*_*_*_*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- *-*-*-*-*-* 

'R' COMMAND - READ HEXADECIMAL FILE 

THIS ROUTINE READS A HEXADECIMAL FILE FROM THE ASSIGNED 
READER DEVICE AND LOADS IT INTO MEMORY. ONE HEXADECIMAL 
PARAMETER IS EXPECTED. THIS PARAMETER IS A BASE ADDRESS 
TO BE ADDED TO THE MEMORY ADDRESS OF EACH DATA BYTE ENCOUNTERED. 
IN THIS WAY, HEXADECIMAL FILES MAY BE LOADED INTO MEMORY 
IN AREAS OTHER THAN THAT FOR WHICH THEY WERE ASSEMBLED OR COMPILED. 
ALL RECORDS READ ARE CHECKSUMMED AND COMPARED AGAINST THE 
CHECKSUM IN THE RECORD. IF A CHECKSUM ERROR (OR TAPE READ ERROR) 
OCCURS, THE ROUTINE TAKES AN ERROR EXIT. NORMAL LOADING IS 
TERMINATED WHEN AN EOF RECORD IS ENCOUNTERED. THE ADDRESS 
GIVEN WHEN THE EOF RECORD WAS CREATED (VIA THE 'E' COMMAND) REPLACES 
THE USER'S STORED PC VALUE ONLY IF THE ADDRESS WAS NONZERO. 
A TRANSFER TO THE PROGRAM MAY THEN BE ACCOMPLISHED BY A 'G<CR>'. 
READ: 

DCR C ; GET ONE ADDRESS; C := 1 

CALL EXPR ; GET THE HEX BASE ADDRESS 

CALL CRLF ; OUTPUT A <CR>,<LF> 



RED0; 



CALL 

CPI 

JNZ 

XRA 

MOV 

CALL 



JZ 

MOV 

CALL 

MOV 

CALL 

MOV 

CALL 

MOV 

PUSH 

LXI 

DAD 



RIX 
I . > 

RED0 
A 

D,A 
BYTE 



RED3 

E,A 

BYTE 

H,A 

BYTE 

L,A 

BYTE 

C,E 

H 

H,-256 

SP 



REDl 



CALL 



MOV 
INX 



BYTE 



M,A 
H 



GET AN ASCII CHARACTER FROM THE READER 
IS IT A START OF RECORD MARK (':')? 
LOOP UNTIL WE FIND SUCH A RECORD MARK 

D WILL CONTAIN THE CHECKSUM; INITIALIZE TO 
READ 2 ASCII CHAR REPRESENTING THE RECORD 

LENGTH AND DECODE THEM INTO 8 BITS BINARY 

STORING THE RESULT IN A-REG 
JUMP IF ZERO RECORD LENGTH BECAUSE THIS 

MEANS IT'S AN EOF RECORD SO WE'RE DONE 
E := RECORD LENGTH 
GET MSB OF LOAD ADDRESS 
H := MSB OF LOAD ADDRESS 
GET LSB OF LOAD ADDRESS 
L := LSB OF LOAD ADDRESS 
GET RECORD TYPE AND IGNORE IT 
C := RECORD LENGTH 
STORE LOAD ADDRESS ON THE STACK 
COMPUTE BUFFER POINTER 
HL NOW POINTS TO THAT PART OF THE MONITOR 

STACK ONE PAGE (256 BYTES) BELOW WHERE 

THE SP IS CURRENTLY POINTING 
WE WILL NOW READ DATA FROM THE FILE RECORD 
AND STORE THEM TEMPORARILY IN THE MONITOR'S 
STACK STARTING FROM A LOW MEMORY ADDRESS AND 
MOVING TOWARD A HIGHER MEMORY ADDRESS (REVERSE 
OF USUAL PROCEDURE WHERE STACK GROWS DOWN) 

READ DATA; NOTE: 8 BITS OF MEMORY (DATA) 

IS REPRESENTED AS 2 HEX CHAR AND EACH HEX 

HEX CHAR IS REPRESENTED AS ONE 8 BIT ASCII CHAR 

PUT DATA IN MONITOR BUFFER 

MOVE "UP" THE STACK 
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LOG OBJ 

FA80 ID 
FA81 C27BFA 
FA84 CDDBFD 



FA87 C247F8 
FA8A Dl 

FA8B E3 



FA8C EB 
FA8D 19 
FA8E 0600 
FA90 09 
FA91 EB 
FA92 E3 



FA93 28 
FA94 7E 
FA95 IB 
FA96 12 
FA97 0D 
FA98 C293FA 
FA9B C359FA 



FA9E C5 
FA9F CDDBFD 



FAA2 47 
FAA3 CDDBFD 
FAA6 4F 
FAA7 B0 
FAA8 CAB 3 FA 
FAAB 2A0400 
FAAE 2EE1 
FAB0 70 
FABl 2B 
FAB2 71 

FAB3 CI 
FAB4 CDDBFD 
FAB 7 CDDBFD 
FABA C247F8 
FABD El 
FABE C9 



LINE 



SOURCE STATEMENT 



1556 




DCR 


E 




1557 




JNZ 


REDl 




1558 




CALL 


BYTE 




1559 










1560 










1561 










1562 










1563 




JNZ 


ERROR 




1564 




POP 


D 




1565 










1566 




XTHL 






1567 










1568 










1569 




XCHG 






1570 




DAD 


D 




1571 




MVI 


B,0 




1572 




DAD 


B 




1573 




XCHG 






1574 




XTHL 






1575 










1576 
1577 










RED2: 








1578 










1579 




DCX 


H 




1580 




MOV 


A,M 




1581 




DCX 


D 




1582 




STAX 


D 




1583 




DCR 


C 




1584 




JNZ 


RED2 




1585 




JMP 


RED0 




1586 
1587 










RED3: 








1588 




PUSH 


B 




1589 




CALL 


BYTE 




1590 










1591 










1592 










1593 




MOV 


B,A 




1594 




CALL 


BYTE 




1595 




MOV 


C,A 




1596 




ORA 


B 




1597 




JZ 


RED4 




1598 




LHLD 


MEMTOP 




1599 




MVI 


L,PLOC AND 


0FFH ; 


1600 




MOV 


M,B 




1601 




DCX 


H 




1602 




MOV 


M,C 




1603 


RED4: 








1604 




POP 


B 




1605 




CALL 


BYTE 




1606 




CALL 


BYTE 




1607 




JNZ 


ERROR 




1608 




POP 


H 


; 


1609 




RET 






1610 


;*-*- 


*_*_*_*_*_ 


.*-*-*_*_*_*. 


.*-*-*- 



DECREMENT RECORD LENGTH COUNT 

LOOP UNTIL RECORD LENGTH COUNTER IS 

READ THE CHECKSUM RECORD FRAME PRIOR TO 

CALL TO BYTE, D-REG CONTAINED SUM OF DATA 
RECORDS. THE CHECKSUM FRAME SHOULD CONTAIN 
THE NEGATIVE OF THIS SUM. BYTE ADDS D AND A 
TOGETHER AND SETS THE ZERO BIT IF D = (-A) 

CHECKSUM ERROR 

DE = LOAD ADDRESS; STACK ENTRY POINTED TO BY SP 
NOW CONTAINS BASE (BIAS) ADDRESS 

HL = BIAS ADDRESS; CONTENTS OF STACK ENTRY 
POINTED TO BY SP NOW IS ADDRESS ONE ABOVE 
WHERE LAST DATA IS STORED IN MONITOR STACK 

DE = BIAS ADDRESS, HL = LOAD ADDRESS 

HL = BIAS + LA 

BC = RECORD LENGTH (RL) 

HL = BIAS + LA + RL 

DE = BIAS + LA + RL, HL = BIAS 

HL POINTS TO ADDRESS 1 GREATER THAN WHERE LAST 
DATA IS STORED IN MONITOR STACK 

LOAD INTO PROPER AREA IN RAM BUT IN 

REVERSE ORDER 
DECREMENT STACK BUFFER POINTER 
A := DATA 

DECREMENT MEMORY POINTER 
PUT DATA IN DESIGNATED ADDRESS 
KEEP DOING THIS UNTIL RECORD LENGTH 

COUNT IS EXHAUSTED 
DONE WITH ONE RECORD, GO GET ANOTHER 

EOF RECORD - ENTIRE FILE HAS BEEN READ IN 

SAVE B,C 

GET MSB OF LOAD ADDRESS OF EOF RECORD 

THIS IS THE <START ADDRESS> SPECIFIED IN 
THE 'E' COMMAND. IF IT IS ZERO, DO NOT 
MODIFY THE USER'S STORED PC IN EXIT TEMPLATE 

B := MSB OF START ADDRESS 

GET LSB OF START ADDRESS 

C := LSB OF START ADDRESS 

SEE IF START ADDRESS IS 0000 

JUMP IF IT IS (DON'T SET NEW PC) 

HL POINTS TO PLOC IN EXIT CODE IN TOP OF RAM 

STORE MSB OF START ADDRESS 

HL POINTS TO PLOC - 1 OF EXIT CODE 

STORE LSB OF START ADDRESS 

FINISH PROCESSING EOF RECORD 

RESTORE B,C 

GET RECORD TYPE AND IGNORE IT 

GET CHECKSUM 

JUMP IF CHECKSUM ERROR 

CUT BACK STACK POINTER 
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LOC OBJ 



FABP 


CD74FE 


FAC2 


D8 


FAC3 


7E 


FAC4 


CD5BFE 


PAC7 


CDDEFC 


FACA 


2D 


FACE 


CDC5FE 


FACE 


D8 


FACF 


CAD9PA 


FAD 2 


EB 


FAD 3 


CD7AFE 


FAD6 


EB 


FAD7 


73 


FADS 


D8 


FAD9 


23 


FADA 


C3C3FA 



FADD CD39FE 
FAE0 CDFEFD 
FAE3 01 
FAE4 El 

FAE5 CDE5FC 
FAE8 3A 
FAE9 011000 

FAEC E5 

FAED 04 
FAEE 0D 
FAEF CAF8FA 



LINE 

1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1557 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 



SOURCE STATEMENT 



'S' COMMAND - SUBSTITUTE MEMORY 

THIS ROUTINE EXPECTS ONE PARAMETER FROM THE LOCAL CONSOLE, FOLLOWED 
BY A SPACE. THE PARAMETER IS INTERPRETED AS A MEMORY LOCATION 
AND THE ROUTINE WILL DISPLAY THE CONTENTS OF THAT LOCATION, 
FOLLOWED BY A DASH (-) . TO MODIFY MEMORY, TYPE IN THE NEW DATA 
FOLLOWED BY A SPACE OR A CARRIAGE RETURN. IF NO MODIFICATION 
OF THE LOCATION IS REQUIRED, TYPE ONLY A SPACE OR CARRIAGE RETURN. 
IF A SPACE WAS LAST TYPED, THE NEXT MEMORY LOCATION WILL BE DISPLAYED 
AND MODIFICATION OF IT IS ALLOWED. IF A CARRIAGE RETURN WAS ENTERED, 
THE COMMAND IS TERMINATED. 



SUBS: 
SU0: 



CALL 
RC 

MOV 

CALL 

CALL 

DB 

CALL 

RC 

JZ 

XCHG 

CALL 

XCHG 

MOV 

RC 



PARAM 

A,M 
LBYTE 
COMC 
i_ I 

PCHK 

SUl 

PA0 

M,E 



SUl: 



GET MEMORY ADDRESS 

ONLY CR ENTERED SO RETURN TO MAIN COMMAND LOOP 

HL HAS REQUESTED MEMORY ADDRESS 
DISPLAY CONTENTS OF THAT ADDRESS 
OUTPUT PROMPT CHARACTER 



CR ENTERED, RETURN TO COMMAND MODE 

SPACE ENTERED, SPACE BY 

SAVE MEMORY ADDRESS 

GET NEW VALUE 

E = VALUE 

STORE NEW VALUE 

CR ENTERED AFTER VALUE, RETURN 

HL POINTS TO NEXT MEMORY LOCATION 



INX H 
JMP SU0 

'W' COMMAND - WRITE HEXADECIMAL FILE 

THIS ROUTINE EXPECTS TWO HEXADECIMAL PARAMETERS WHICH ARE 
INTERPRETED AS THE BOUNDS OF A MEMORY AREA TO BE ENCODED 
INTO HEXADECIMAL FORMAT AND PUNCHED ON THE ASSIGNED PUNCH 

DEVICE. 



WRITE; 





CALL 


EXPR 




CALL 


CRLF 




POP 


D ; 




POP 


H ; 


WR0: 








CALL 


POC 




DB 


1 . I 


. 


LXI 


b]i6 




PUSH 


H ; 


WRl: 








INR 


b 




DCR 


C 




JZ 


WR2 



GET ADDRESS RANGE 
NEW LINE 

DE := HIGH ADDRESS 
HL := LOW ADDRESS 

EMIT RECORD MARK 

INITIALIZE B := 0, C := AH (DECIMAL 16) 

SAVE HL 

INCREMENT RECORD LENGTH 

TERMINATE ON COUNT OF 16 BYTES 
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LOC OBJ 



LINE 



SOURCE STATEMENT 



FAF2 CD4CFE 
FAF5 D2EDFA 





J.DOO ; 

1669 WR2: 






FAF8 El 


1670 


POP 


H 


FAF9 D5 


1671 


PUSH 


D ; 


FAFA 1600 


1672 


MVI 


D,0 


FAFC 78 


1673 


MOV 


A,B ; 


FAFD CDAFFE 


1674 


CALL 


PBYTE ; 


FB00 CDAAFE 


1675 


CALL 


PADR ; 


FB03 AF 


1676 


XRA 


A 


FB04 CDAFFE 


1677 

^a'^Q . 


CALL 


PBYTE 



FB07 7E 
FB08 CDAFFE 
FB0B 23 
FB0C 05 
FB0D C207FB 
FB10 AF 
FBll 92 
FBI 2 CDAFFE 
FB15 Dl 
FB16 2B 



FB17 CDE5FC 
FBIA 0D 
FBIB CDE5FC 
FBIE 0A 
FBIF CD4CFE 
FB22 D2E5FA 
FB25 C9 



FB26 2181FB 
FB29 CDC5FE 
FB2C DA6AFB 
FB2F 0E0C 

FB31 BE 
FB32 CA3FFB 
FB35 23 
FB36 23 
PB37 23 
FB38 0D 



1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 



CALL 
JNC 



HILO 
WRl 



WR3! 



MOV 

CALL 

INX 

DCR 

JNZ 

XRA 

SUB 

CALL 

POP 

DCX 



A,M 

PBYTE 

H 

B 

WR3 

A 

D 

PBYTE 

D 

H 



CALL 


POC 


DB 


CR 


CALL 


POC 


DB 


LF 


CALL 


HILO 


JNC 


WR0 


RET 





OR END OF RANGE 
WHICHEVER OCCURS FIRST 

OUTPUT A DATA RECORD 
RESTORE HL := LOW ADDRESS 
SAVE HIGH ADDRESS 
INITIALIZE CHECKSUM D := C 
A := RECORD LENGTH 
EMIT RECORD LENGTH 
EMIT HL := LOW ADDRESS 

EMIT RECORD TYPE = 1 



FETCH DATA 

EMIT IT 

INCREMENT MEMORY ADDRESS 

DECREMENT COUNT 

LOOP UNTIL ENTIRE RECORD HAS BEEN OUTPUT 

D CONTAINS RUNNING CHECKSUM 

EMIT CHECKSUM := -D 

RESTORE DE := HIGH ADDRESS 

BACKUP MEMORY POINTER 

NOW PUNCH CR,LF IGNORED BY THE 'R' 

COMMAND BUT HANDY IF LISTING PUNCHED 

TAPE ON THE TTY 
PUNCH CARRIAGE RETURN 

; PUNCH LINE FEED CHARACTER 

; TEST FOR TERMINATION 

; IF NOT DONE, FORM NEXT RECORD AND OUTPUT IT 

'X' COMMAND - EXAMINE AND MODIFY CPU REGISTERS 

THIS ROUTINE ALLOWS THE OPERATOR TO EXAMINE AND/OR MODIFY 
THE CONTENTS OF THE USER PROGRAM'S REGISTERS. THE REGISTER 
VALUES WERE STORED AS A RESULT OF A PREVIOUS BREAKPOINT AND 
WILL BE RESTORED TO THE USER PROGRAM DURING A SUBSEQUENT 'G' 
COMMAND. 

POINT TO ACCESS TABLE 
GET REGISTER IDENTIFIER 
IF CARRY = 1, CR ENTERED 



X0; 



LXI 


H,ACTBL 


CALL 


PCHK 


JC 


X5 


MVI 


CNREGS 


CMP 


M 


JZ 


XI 


INX 


H 


INX 


H 


INX 


H 


DCR 


C 



MATCHED REGISTER IDENTIFIER 
POINT TO NEXT TABLE ENTRY 



DECREMENT REGISTER COUNTER 



ISIS-II 8080/8085 MACRO ASSEMBLER, V3 . MODULE 

INTELLEC SERIES II MONITOR, VERSION 1.3, 1 MARCH 1979 



PAGE 



33 



LOG 


OBJ 


FB39 


C231FB 


FB3C 


C347F8 


FB3F 


CD93FC 


FB42 


CD25FE 


FB45 


CDDEFC 


FB48 


2D 


FB49 


GDC5FE 


FB4G 


D8 


FB4D 


GA60FB 


FB50 


E5 


FB51 


C5 


FB52 


CD7AFE 


FB55 


7D 


FB56 


12 


FB57 


Fl 


FB58 


B7 


FB59 


FA5FFB 


FB5C 


13 


PB5D 


7C 


FB5E 


12 


FB5F 


El 


FB60 


AF 


FB61 


B6 


FB62 


F8 


FB63 


78 


FB64 


FE0D 


FB66 


C8 


FB67 


G342FB 


FB6A 


CDFEFD 


FB6D 


GD93FC 


FB70 


AF 


FB71 


B6 


FB72 


F8 


FB73 


4E 


FB74 


CD95FC 


FB77 


CDDEFC 


FB7A 


3D 


FB7B 


CD25FE 


FB7E 


C36DFB 



FB81 41 



LINE 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 



XI: 
X2! 



X3: 
X4! 



X5; 
X6i 



SOURCE STATEMENT 



JNZ 
JMP 



GALL 



POP 



CALL 



X0 
ERROR 



BLK 



CALL 


DREG 


CALL 


COMC 


DB 


1 _ I 


GALL 


PCHK 


RC 




JZ 


X4 


PUSH 


H 


PUSH 


B 


CALL 


PA0 


MOV 


A,L 


STAX 


D 


POP 


PSW 


ORA 


A 


JM 


X3 


INX 


D 


MOV 


A,H 


STAX 


D 



XRA 


A 


ORA 


M 


RM 




MOV 


A,B 


CPI 


CR 


RZ 




JMP 


X2 



CRLF 



CALL 


BLK 


XRA 


A 


ORA 


M 


RM 




MOV 


G,M 


CALL 


COM 


CALL 


COMC 


DB 


1 _ 1 


CALL 


DREG 


JMP 


X6 



; TRY AGAIN 

; NOT IN TABLE, ERROR 



; DISPLAY THE REGISTER 

; TYPE PROMPT 

; SKIP IF NULL ENTRY 

; CR ENTERED, RETURN TO COMMAND MODE 

; SAVE POINTER TO ACTBL 

; SAVE PRECISION 

; GET NEW REG VALUE 

; STORE LSB IN REGISTER AREA 

; RETRIEVE PRECISION (A) 

; SET SIGN 

; 8 BITS ONLY 



; STORE MSB IN REGISTER AREA 
; RETRIEVE ACTBL POINTER 



; END OF TABLE, RETURN TO COMMAND MODE 
; TEST DELIMITER 

; CR ENTERED, RETURN TO COMMAND MODE 



; DISPLAY ALL THE REGISTER VALUES 



OUTPUT A SPACE 

CLEAR A 

SET CONDITION CODES 

ALL DONE, RETURN TO COMMAND MODE 

C CONTAINS A REGISTER IDENTIFIER (A,B,C,D...) 

PRINT CHARACTER 

PRINT EQUAL SIGN 

DISPLAY REGISTER CONTENTS 
CONTINUE 



TABLE FOR ACCESSING REGISTERS 
TABLE CONTAINS: 

(1) REGISTER IDENTIFIER 

(2) LOCATION ON STORAGE PAGE 

(3) PRECISION 



ACTBL: 



DB 



•A', 



ALOC AND HMSK, 
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LOC OBJ 

FB82 CF 
FB83 00 
FB84 42 
FB85 CB 
FB86 00 
FB87 43 
FB88 CA 
FB89 00 
FB8A 44 
FB8B C9 
FB8C 00 
FB8D 45 
FB8E C8 
FB8F 00 
FB90 46 
FB91 CE 
FB92 00 
FB93 48 
FB94 DD 
FB95 00 
FB96 49 
FB97 CD 
FB98 00 
FB99 4C 
FB9A DC 
FB9B 00 
FB9C 4D 
FB9D DD 
FB9E 01 
PB9F 50 
FBA0 El 
FBAl 01 
FBA2 53 
PBA3 Dl 
FBA4 01 
FBA5 FF 
000C 



FBA6 CD61FF 
FBA9 FE24 
FBAB C247F8 
PBAE CD61FF 
FBBl FE0D 
FBB3 C247F8 
FBB6 3E0C 
FBB8 D3FF 
FBBA CD00EB 
FBBD C9 



LINE 

1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 



SOURCE STATEMENT 



DB 



DB 



DB 



DB 



DB 



DB 



DB 



DB 



DB 



DB 



DB 



'E', 
'F', 
■H', 



'M', 



'S', 



BLOC AND HMSK, 
CLOC AND HMSK, 
DLOC AND HMSK, 
ELOC AND HMSK, 
FLOC AND HMSK, 
HLOC AND HMSK, 
I LOC AND HMSK, 
LLOC AND HMSK, 
HLOC AND HMSK, 
PLOC AND HMSK, 
SLOC AND HMSK, 



1787 DB -1 

1788 NREGS EQU ($-ACTBL)/3 ; LENGTH OF ACCESS TABLE 

1789 : A-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* 

1790 

'Z' COMMAND - TRANSFER CONTROL TO DIAGNOSTIC PROGRAM IN PROM 

THIS ROUTINE EXPECTS A '$' AT WHICH POINT IT WILL CALL THE DIAGNOSTIC PROGRAM. 



1791 

1792 

1793 Z 

1794 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1802 

1803 

1804 ; 

1805 ; 



; GET A CHARACTER FROM THE CONSOLE 

; IS IT A '$'? 

; ERROR IF IT ISN'T 

; GET A CHARACTER FROM THE CONSOLE 

; EXPECT A CARRIAGE RETURN 

; ERROR IF IT ISN'T 

; TURN ON THE BOOT/DIAGNOSTIC PROM 

; CALL THE DIAGNOSTIC PROGRAM 
; RETURN TO MAIN COMMAND LOOP 
*************************************************************************** 
* * 



CALL 


TI 


CPI 


.$. 


JNZ 


ERROR 


CALL 


TI 


CPI 


CR 


JNZ 


ERROR 


MVI 


A,BTDGON 


OUT 


CPUC 


CALL 


DIAGMN 


RET 





1806 ;* END OP MONITOR COMMANDS, BEGINNING OF I/O ROUTINES 
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LOG OBJ 



FBBE 3A0300 
FBCl E603 
PBC3 C2D0FB 



FBC6 DBFS 
FBC8 E602 
FBCA CAC6FB 
FBCD DBF4 
FBCF C9 



FBD0 FE01 
FBD2 C2FDFB 
FBD5 E5 
FBD6 2A0400 
FBD9 2ECC 

FBDB 7E 
FBDC El 
FBDD 0F 



FBDE D2EBFB 



FBEl DBF? 
FBE3 E602 
FBE5 CAEIFB 
PBE8 DBP6 
FBEA C9 



FBEB 05 



LINE 

1807 

1808 

1809 

1810 

1811 

1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 

1821 

1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 



SOURCE STATEMENT 

.* * 

'.**** ********************* *********************************************** ******** 



I I I I I I I 



I I I I it I I I I I I I I I I I I I I I I I I t I t '' I ' I' t '''''' ' 



tiiiiitiiiiiitiiiiit'ii 



■CI' - EXTERNALLY REFERENCED ROUTINE 

ENTERED VIA CALL FROM 'TI' ROUTINE 
PROCESS: LOCAL CONSOLE INPUT CODE 
INPUT: 

OUTPUT: CHARACTER RETURNED IN A-REG 
MODIFIED: A, FLAGS 
STACK USAGE: 2 BYTES 
EXPLANATION: BASED ON I/O STATUS BYTE (lOBYT) , DECIDE 

DEVICE IS TTY, CRT, BATCH, OR USER-DEFINED DEVICE. 

LOOP UNTIL READ, INPUT THE CHARACTER, THEN RETURN. 



IF CONSOLE INPUT 
IF IT IS TTY OR CRT 
IF IT IS BATCH, 



JUMP TO 'RI' ROUTINE. IF IT IS USER-DEFINED DEVICE, JUMP TO gUSER. 



iiiiiiittiiiiiiiiiiiiititii 

CI: 

LDA lOBYT 
ANI NOT OMSK 
JNZ CI0 



• CONSOLE = 


TTY 






IN 




TTYS 




ANI 




RRDY 




JZ 




TTYIN 




IN 




TTY I ; 




RET 






'• CONSOLE = 


CRT 


, BATCH, OR USER-D 


CI0: 










CPI 




CCRT ; 




JNZ 




CI 4 




PUSH 




H 


- 


LHLD 




MEMTOP 




MVI 




L,IL0C-1 AND 0FFH 




MOV 




A,M 




POP 




H 




RRC 








JNC 




CI 2 ; 


; CONSOLE = 


SERIAL CRT 


CIl: 










IN 




uses 




ANI 




RRDY 




JZ 




CIl 




IN 




USCI ; 




RET 







; CONSOLE = INTEGRATED CRT 
CI2: 

PUSH B 
CI3: 



'liiiiiiiitttiiiiiifiiiititiiiiiit'itiiti'''''' 

LOCAL CONSOLE INPUT 

GET STATUS BYTE 

LOOK AT ONLY CONSOLE FIELD 

JUMP IF CONSOLE IS NOT TTY 



TTY STATUS PORT 

CHECK FOR RECEIVE BUFFER READY 

LOOP UNTIL IT IS READY 

INPUT CHARACTER FROM TTY 

RETURN; CHARACTER IN A-REG 



LOCAL CONSOLE = CRT? 

JUMP IF CONSOLE IS NOT CRT 

SAVE HL 

I HL NOW POINTS TO CONFIGURATION BYTE STORED 
IN EXIT TEMPLATE IN TOP PAGE OF RAM 

A := CONFIGURATION BYTE 

RESTORE HL 

ROTATE BIT INTO CARRY BIT, THUS CARRY = 1 
MEANS RUNNING ON SYSTEM WITHOUT INTEGRATED 
CRT 

JUMP IF INTEGRATED CRT IS PRESENT 



INPUT CRT STATUS 

CHECK FOR RECEIVER BUFFER READY 

LOOP UNTIL IT IS READY 

GET CHARACTER FROM THE CRT 

RETURN; CHARACTER IS IN A-REG 



; SAVE B,C 
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LOC OBJ 



LINE 



SOURCE STATEMENT 



FBEC 0613 
FBEE CD7FFF 
FBFl E601 
FBF3 CAECFB 
FBF6 0612 
FBF8 CD7FFF 
FBFB CI 
FBFC C9 



FBFD FE02 
FBFF CA0FFC 
FC02 3EE8 
FC04 C38CFC 



FC07 CD44FD 
FC0A B7 
FC0B C8 
FC0C C361FF 



FC0F E5 
FC10 3A0300 
FC13 E60C 
FC15 C258FC 



FC18 C5 
FC19 3E0D 
FCIB D3FF 
FCID DBF4 



FCIF DBFS 
FC21 E604 
FC23 CAIFFC 
FC26 3E27 



1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 



MVI 


B,KSTS 


CALL 


lOCDRl 


AN I 


KRDY 


JZ 


CI3 


MVI 


B,KEYC 


CALL 


lOCDRl 


POP 


B 


RET 





LOAD KEYBOARD STATUS COMMAND 

INPUT KEYBOARD STATUS FROM IOC 

IS THE KEYBOARD READY? 

LOOP UNTIL IT IS 

LOAD INPUT DATA COMMAND 

INPUT DATA FROM THE KEYBOARD 

RESTORE B,C 

RETURN; CHARACTER IS IN A-REG 



CONSOLE IS BATCH OR USER-DEFINED DEVICE 



CI4: 

CPI BATCH 

JZ RI ; BATCH MODE, INPUT = READER 

MVI A,CILOC AND HMSK; USER DEFINE LOCAL CONSOLE INPUT 

JMP @USER 

; 'BREAK' - ENTERED VIA CALLS FROM 'BLK' , 'COM' , ' LOM' ROUTINES 

; PROCESS: TEST FOR OPERATOR INTERRUPTION OF COMMAND (I.E. DID OPERATOR 

DEPRESS THE "BREAK" KEY) 
; INPUT: 
; OUTPUT: 

; MODIFIED: A, FLAGS 
; STACK USAGE: 4 BYTES 
BREAK: 

CALL CSTS ; SEE IF A KEY WAS DEPRESSED 

ORA A 

RZ ; NO CHARACTER READY 

JMP TI ; GET THE CHARACTER 

; 'RI' - EXTERNALLY REFERENCED ROUTINE 

; ENTERED VIA CALLS FROM 'CI','RIX' ROUTINES 

; PROCESS: READER INPUT CODE 

; INPUT: 

; OUTPUT: CARRY = AND VALID CHARACTER IN A-REG, OTHERWISE 

CARRY = 1 AND INVALID DATA (ZEROES) IN A-REG 
; MODIFIED: A, FLAGS 
; STACK USAGE: 8 BYTES 

RI: ; READER INPUT 

PUSH H ; SAVE HL 

LDA lOBYT ; GET STATUS BYTE 

ANI NOT RMSK ; GET READER BITS 

JNZ RI5 ; JUMP IF READER IS NOT THE TTY 



; READER = TTY 

PUSH B 

MVI A,DISABL 

OUT CPUC 

IN TTYI 



RI0: 



IN TTYS 

ANI TXBE 

JZ RI0 

MVI A,TADV 



; SAVE BC 

; HOLD UP INTERRUPTS WHILE TAPE IS ADVANCING 

; CLEAR RECEIVE BUFFER BY READING IN ANY 
DATA THAT MAY BE THERE 

READ IN USART STATUS 

CHECK FOR TRANSMITTER BUFFER EMPTY 

TRY AGAIN IF NOT EMPTY 

ADVANCE THE TAPE 
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LOC OBJ 



FC28 


D3F5 


FC2A 


0628 


FC2C 


CDIEFE 


FC2F 


05 


FC30 


C22CFC 


FC33 


3E25 


FC35 


D3F5 


FC37 


06 FA 


FC39 


DBF5 


FC3B 


E602 


FC3D 


C24CFC 


FC40 


CDIEFE 


FC43 


05 


FC44 


C239FC 


FC47 


AF 


FC48 


37 


FC49 


C34FFC 


FC4C 


DBF4 


FC4E 


B7 


FC4F 


F5 


FC50 


3E05 


FC52 


D3FF 


FC54 


Fl 


FC55 


CI 


FC56 


El 


FC57 


C9 


FC58 


FE04 


FC5A 


C282FC 


FC5D 


C5 


FC5E 


0650 


FC60 


CDE4FF 


FC63 


26FA 


FC65 


0611 


FC67 


CDB5FF 


FC6A 


E601 


FC6C 


C279FC 


FC6F 


CDIEFE 


FC72 


25 


FC73 


C265FC 


FC76 


C347FC 


FC79 


0610 


FC7B 


CDB5FF 


FC7E 


B7 



LINE 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

'1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 



SOURCE STATEMENT 



RIl; 



RI2; 



RI3: 



RI4; 



RI4B: 



OUT 


TTYC 


MVI 


B , RADCT 


CALL 


DELAY 


DCR 


B 


JNZ 


RIl 


MVI 


A,COMD 


OUT 


TTYC 


MVI 


B,RTOCT 


IN 


TTYS 


AN I 


RRDY 


JNZ 


RI4 


CALL 


DELAY 


DCR 


B 


JNZ 


RI2 


XRA 


A 


STC 




JMP 


RI4B 


IN 


TTYI 


ORA 


A 


PUSH 


PSW 


MVI 


A,ENABL 


OUT 


CPUC 


POP 


PSW 


POP 


B 


POP 


H 


RET 





OUTPUT THE ADVANCE COMMAND 
INITIALIZE TIMER FOR 45 MS. 

DELAY FOR 1 MILLISECONDS 
DECREMENT TIMER 
JUMP IF TIMER NOT EXPIRED 
STOP THE READER ADVANCE 
OUTPUT STOP COMMAND 
INITIALIZE TIMER FOR 250 MS. 

INPUT READER STATUS 

CHECK FOR RECEIVER BUFFER READY 

YES - DATA IS READY 

DELAY 1 MS 

DECREMENT TIMER 

JUMP IP TIMER NOT EXPIRED 

* 

ZERO A, RESET CARRY 
SET CARRY INDICATING EOF 



; CLEAR CARRY 

; SAVE DATA 

; PERMIT INTERRUPTS TO GO THROUGH 



; RESTORE BC 
; RETURN 



; READER IS PTR, USER-DEV-1, OR USER-DEV-2 
RI5: 

CPI RPTR ; IS READER THE PAPER TAPE READER? 

JNZ RI8 ; JUMP IF IT ISN'T 



RI6: 



READER = PAPER TAPE READER 

PUSH B 

MVI B,RDRC OR PTRADV 

CALL PIOCOM 

MVI H,TOUT 

MVI B,RSTC 

CALL PIODRl 

AN I PTRDY 

JNZ RI7 

CALL DELAY 

DCR H 

JNZ RI6 

JMP RI3 

MVI B,RDRC 

CALL PIODRl 

ORA A 



RI7 



SAVE BC 

LOAD READER ADVANCE 1 FRAME COMMAND 

OUTPUT THE COMMAND 

250 MS. TIMEOUT COUNTER 

LOAD READER STATUS COMMAND 

READ STATUS 

IS THE READER READY? 

JUMP IF IT IS 

STALL FOR 1 MS. 

250 MS. TIMEOUT LOOP 

250 MS. ARE UP; RETURN WITH CARRY = 1 (EOF COND) 

THE PAPER TAPE READER IS READY 

LOAD READER COMMAND 

READ A CHARACTER FROM THE PAPER TAPE READER 

RESET CARRY BIT 
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LOC OBJ 

FC7F CI 
FC80 El 
FC81 C9 



PC82 El 
FC83 FE08 
FC85 3EEE 
FC87 CA8CFC 
FC8A 3EF1 



FC8C E5 
FC8D 2A0400 
FC90 6F 

FC91 E3 
FC92 C9 



FC93 0E20 

PC95 3A0300 
PC98 E603 
FC9A FE02 
FC9C C407FC 



FC9F 3A0300 
FCA2 E603 
FCA4 C2B2FC 



LINE 

1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 



SOURCE STATEMENT 



POP 


B 


POP 


H 


RET 





; RESTORE BC 

; RETURN SUCCESSFULLY WITH CARRY = J3 



; READER IS USER-DEFINED DEVICE 1 OR DEVICE 2 
RI8: 

POP H 

CPI RUSEl 

MVI A,R1L0C AND HMSK 

JZ @USER ; READER = USER-DEFINED DEVICE 1 

MVI A,R2L0C AND HMSK 

;******JMP euSER ; READER = USER-DEFINED DEVICE 2 



iiiiiiiiitiiiiiiiiii 



iiiiiiii 



m 



iiifiiiiiiiiitiiittiiiiiiiiiifitiiiittiii 

•eUSER' - ENTERED VIA JUMPS FROM ' LO ' , ' LOM' , 'RI ' , ' CI ' , ' ELK ' , ' COM ' , 
'CO','POC' ,'PO' ,'CSTS' ROUTINES 
ENTERED VIA FALL-THRU FROM 'RI' ROUTINE 
PROCESS: USER-DEFINED I/O ENTRY POINT TRANSFER LOGIC 

INPUT: A-REG CONTAINS LSB ADDRESS PTR INTO USER-DEFINED ENTRY POINT TABLE (XTBL) 
OUTPUT: 
MODIFIED: 
STACK USAGE: 
SER: 

PUSH 

LHLD 

MOV 



H 

MEMTOP 

L,A 



XTHL 
RET 



SAVE HL, CREATE A STACK ENTRY 

HL NOW POINTS TO PROPER USER ENTRY POINT IN 
XTBL IN EXIT TEMPLATE IN TOP PAGE OF RAM 
RESTORE HL; SP NOW POINTS TO USER ENTRY POINT 
BEGIN EXECUTING AT THIS ENTRY POINT 



ttiittitiitttitittiiitiiiiiiiitiiititittiititiiiit 

'CO' - EXTERNALLY REFERENCED ROUTINE 

ENTERED VIA CALL FROM 'TI' ROUTINE 
•BLK' - ENTERED VIA CALLS FROM 'H', 'X' COMMANDS 
•COM' - ENTERED VIA CALLS FROM 'Q', 'X' COMMANDS 

ENTERED VIA JUMPS FROM 'COMC', 'HXD' ROUTINES 



ittfiiiiiitiiiiiiiiititii 



'TTYOUT' - ENTERED VIA 
'CRTOUT' - ENTERED VIA 
ENTERED VIA 
PROCESS: LOCAL CONSOLE 
INPUT: VALUE IN C-REG 
OUTPUT: DATA OUTPUT TO 
MODIFIED: A, FLAGS, C 
STACK USAGE: 2 BYTES 



JUMPS PROM 'LOM','LO','POC','PO' ROUTINES 
JUMPS FROM 'LOM','LO' ROUTINES 
CALL FROM BOOTSTRAP PROGRAM 
OUTPUT CODE 

APPROPRIATE DEVICE 



BLK: 
COM: 



CO: 



; PRINT A BLANK 



MVI 

LDA 
AN I 
CPI 
CNZ 



LDA 
AN I 
JNZ 



c,' • 

lOBYT 
NOT CMSK 
BATCH 
BREAK 



lOBYT 
NOT CMSK 
CO0 



; LOCAL CONSOLE OUTPUT 

; GET STATUS BYTE 

; LOOK ONLY AT CONSOLE FIELD 

; IS CONSOLE = BATCH? 

; IF SO, DO NOT HONOR BREAK KEY IN BATCH. MODE 

; IF IT ISN'T, THEN TEST FOR BREAK KEY 

; EXTERNAL ENTRY POINT 

; GET STATUS BYTE 

; LOOK ONLY AT CONSOLE FIELD 

; JUMP IF CONSOLE IS NOT TTY 
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LOG OBJ 



FCA7 DBFS 
FCA9 E601 
FCAB CAA7FC 
FCAE 79 
FCAP D3F4 
FCBl 09 



PCB2 FE02 
FCB4 CAIEPD 
FCB7 FE01 
FCB9 3EEB 
FCBB C28CFC 



FCBE E5 
FCBP 2A0400 
FCC2 2ECC 
FCC4 7E 
FCC5 El 
FCC6 0F 

FCC7 D2D5FC 



FCCA DBF7 
FCCC E601 
FCCE CACAFC 
FCDl 79 
FCD2 D3F6 
FCD4 C9 



FCD5 79 
FCD6 C5 



FCD7 0610 
FCD9 CD94FF 
FCDC CI 
FCDD C9 



LINE 

2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 



SOURCE STATEMENT 



; CONSOLE = TTY 

TTYOUT: 

IN TTYS 
AN I TRDY 
JZ TTYOUT 
MOV A,C 
OUT TTYO 
RET 



LOCAL CONSOLE = TTY; GET TTY STATUS 

IS IT READY? 

LOOP UNTIL IT IS 

LOAD CHARACTER TO BE OUTPUT 

OUTPUT CHARACTER 

RETURN 



; CONSOLE IS CRT, BATCH, OR USER-DEFINED 
CO0: 

CPI BATCH 

JZ LO 

CPI CCRT 

MVI A,COLOC AND 0FFH 

JNZ @USER 



CONSOLE « BATCH? 

JUMP TO LIST OUTPUT IF IT IS 

LOCAL CONSOLE = CRT? 



JUMP IF IT ISN'T, I.E. CONSOLE IS 
USER DEFINED LOCAL CONSOLE OUTPUT 



; CONSOLE = 

CRTOUT: 

PUSH 

LHLD 

MVI 

MOV 

POP 

RRC 

JNC 



CRT 



H 

MEMTOP 

L,IL0C-1 

A,M 

H 



CRT0T2 



; SAVE H,L 

AND 0FFH; HL NOW POINTS TO CONFIGURATION BYTE IN EXIT TEMPLATE 
A NOW CONTAINS THIS CONFIGURATION BYTE 
RESTORE H,L 
ROTATE BIT INTO CARRY BIT; THUS CARRY 

= 1 IF INTEGRATED CRT NOT PRESENT 
JUMP IF INTEGRATED CRT 



; CONSOLE = SERIAL CRT 

CRTOTl: 

IN uses 

AN I TRDY 

JZ CRTOTl 

MOV A,C 

OUT USCO 
RET 



; CONSOLE = INTEGRATED CRT 
CRT0T2: 

MOV A,C 

PUSH B 



MVI 


B,CRTC 


CALL 


I0CDR2 


POP 


B 



INTELLEC WITH SERIALLY CONNECTED CRT 

INPUT CRT STATUS 

IS IT READY? 

LOOP UNTIL IT IS 

MOVE CHARACTER TO BE OUTPUT TO C-REG 

OUTPUT IT TO THE CRT 



INTELLEC WITH INTEGRATED CRT 

MOVE CHARACTER TO BE OUTPUT TO A-REG 

SAVE B,C 

CRT IS ALWAYS READY AND PRESENT - NO NEED 

TO CHECK ITS STATUS 

LOAD OUTPUT TO CRT COMMAND 

OUTPUT DATA TO CRT 

RESTORE B,C 



RET 



ti!}}}}!!}}}}}}}}}}}}}}}}}}}}!}}}}}}}}}}}}}}}}/}}}}}}}}}}'}}'''^ 

; 'COMC - ENTERED VIA CALLS FROM 'C'QS'S'/'X' COMMANDS AND 'ERROR', 

; 'START', 'CRLF ', 'RESTART' ROUTINES 

; PROCESS: LOCAL CONSOLE OUTPUT OP CONSTANT DATA 

; INPUT: SP 

; OUTPUT: CONTENTS OF ADDRESS POINTED TO BY SP IS A RETURN ADDRESS TWO GREATER 
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LOC OBJ 



LINE 



SOURCE STATEMENT 



FCDE E3 



FCDF 4E 
FCE0 23 
FCEl E3 
FCE2 C395FC 



FCE5 E3 



FCE6 4E 
FCE7 23 
FCE8 E3 

FCE9 3A0300 
FCEC E630 
FCEE CAA7FC 
FCFl FE10 
FCF3 C208FD 



FCF6 C5 

FCF7 0613 
FCF9 CDB5FF 
FCFC E601 
FCFE CAF7FC 
FD01 0612 
FD03 CDCEFF 
FD06 CI 
FD07 C9 



FD08 FE20 
FD0A 3EF4 
FD0C CA8CFC 
FD0F 3EF7 



2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 



THAN THAT OF THE CALL COMC INSTRUCTION 
MODIFIED: C,H,L 
STACK USAGE: 2 BYTES 



COMC: 



XTHL 



MOV 


C,M 


INX 


H 


XTHL 




JMP 


COM 



SINCE COMC WAS CALLED, SP NOW POINTS TO A STACK 
ENTRY CONTAINING THE ADDRESS OF THE NEXT 
INSTRUCTION, WHICH IN THIS CASE IS A DB. 
HL NOW POINTS TO THIS DB. 

C NOW CONTAINS THE CHARACTER TO BE OUTPUT 

BUMP RETURN ADDRESS, I.E. POINT IT BEYOND THE DB. 

SP MODIFIED, HL IS AS IT WAS ORIGINALLY 

OUTPUT IT 



iiiifiii>iitiiiititiiiiiiiiiitiiiiiiiiiiiit>iiii>$iiiiiiiiiiiiiitiiiii>iiiiiiii 

■PO' - EXTERNALLY REFERENCED ROUTINE 

ENTERED VIA CALL FROM 'PBYTE' ROUTINE 
'POC - ENTERED VIA CALLS FROM 'E','N','W' COMMANDS AND ' LEAD' , ' PEOL ' 

ROUTINES 
PROCESS: PUNCH OUTPUT CODE 
INPUT: VALUE IN C-REG 
OUTPUT: 

MODIFIED: A, FLAGS, C 
STACK USAGE: 2 BYTES 



ttitiiiiiiiiittiiiiitiititiiiit 

POC: 

XTHL 



PO: 



MOV 
INX 
XTHL 

LDA 
AN I 
JZ 
CPI 
JNZ 



C,M 
H 



lOBYT 
NOT PMSK 
TTYOUT 
PPTP 
POl 



itiiiiiitttitiit 



iiiiiiiiittiiiiitiiitiiiiiii 



PUNCH = PAPER 


TAPE PUNCH 


PUSH 


B ; 


MVI 


B,PSTC ; 


CALL 


PIODRl 


AN I 


PTPRY 


JZ 


PO0 


MVI 


B,PUNC ; 


CALL 


PI0DR3 ; 


POP 


B 


RET 





PUNCH A CONSTANT 

SINCE POC ENTERED VIA CALL, SP POINTS TO STACK 
ENTRY CONTAINING ADDRESS OF NEXT INSTRUCTION 
WHICH IS A DB. HL NOW POINTS TO THIS DB. 

C NOW CONTAINS CHARACTER TO BE PUNCHED 

BUMP RETURN ADDRESS, I.E. POINT IT BEYOND DB 

SP MODIFIED, HL IS AS IT WAS ORIGINALLY 

PUNCH OUTPUT 

GET STATUS BYTE 

GET PUNCH BITS 

JUMP IF PUNCH ISN'T TTY 

IS PUNCH = PAPER TAPE PUNCH? 

JUMP IF IT ISN'T 



SAVE BC 

PUNCH = PTP 

LOAD PUNCH STATUS COMMAND 

READ STATUS 

IS THE PUNCH READY? 

LOOP UNTIL READY 

LOAD PUNCH OUTPUT COMMAND 

OUTPUT CHARACTER THAT WAS IN C-REG 

RESTORE BC 



; PUNCH IS USER-DEFINED DEVICE 1 OR DEVICE 2 
POl: 

CPI PUSEl 

MVI A,P1L0C AND 0FFH 

JZ @USER ; PUNCH = USER DEFINED PUNCH 1 

MVI A,P2L0C AND 0FFH 
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LOG OBJ 
FDll C38CFC 



FD14 3A0300 
FD17 E603 
FD19 FE02 
FDIB C407FC 



FDIE 


3A0300 


FD21 


E6C0 


FD23 


CAA7FC 


FD26 


FE40 


FD28 


CABEFC 


FD2B 


FEC0 


FD2D 


3EFA 


FD2F 


CA8CFC 


FD32 


C5 


FD33 


0615 


FD35 


CDB5FF 


FD38 


E601 


FD3A 


CA33FD 


FD3D 


0614 


FD3F 


CDCEFF 


FD42 


CI 


FD43 


C9 



FD44 3A0300 
FD47 E603 
FD49 C253FD 



LINE 

2137 

2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 

2161 

2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

2182 

2183 

2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 



SOURCE STATEMENT 



; PUNCH = USER DEFINED PUNCH 2 



JMP eUSER 

JiiiiftJiiJitilitiriiiiiiri'titiJiiiitiitiirltittittitttiliii}'''' 

; 'LO' - EXTERNALLY REFERENCED ROUTINE 

; ENTERED VIA JUMPS FROM ' COM' , 'CO ' , ' BLK ' ROUTINES 

; 'LOM' - ENTERED VIA CALLS FROM 'D' COMMAND AND 'DBYTE ' , ' LCRLF' ROUTINES 

; ENTERED VIA JUMPS FROM " DBYTE ',' LCRLF ' ROUTINES 

; PROCESS: LIST OUTPUT 

; INPUT: VALUE IN C-REG 

; OUTPUT: 

; MODIFIED: A, FLAGS, C 

; STACK USAGE: 2 BYTES 



1 1 I I I I I 

LOM: 



iiiiitiiiiiiitiiiiiiiiiii 



LO: 



LDA 
AN I 
CPI 
CNZ 



LDA 

AN I 

JZ 

CPI 

JZ 

CPI 

MVI 

JZ 



lOBYT 
NOT CMSK 
BATCH 
BREAK 



lOBYT 

NOT LMSK 

TTYOUT 

LCRT 

CRTOUT 

LUSE 

A,L1L0C AND 0FFH 

@USER 



; LIST 
LP0: 



= LPT 
PUSH 

MVI 

CALL 

AN I 

JZ 

MVI 

CALL 

POP 

RET 



B 

B,LSTC 

PIODRl 

LPTRY 

LP0 

B,LPTC 

PI0DR3 

B 



LIST OUTPUT ON CONSOLE 

LOOK ONLY AT CONSOLE FIELD OF lOBYT 

IS CONSOLE ASSIGNED TO BATCH MODE? 

IF IT ISN'T, WE SHOULD TEST FOR BREAK KEY 

I.E. IN BATCH- MODE THE BREAK KEY IS NOT 

HONORED 
LIST OUTPUT 
GET STATUS BYTE 
LOOK AT LIST FIELD 
JUMP IF LIST = TTY 

JUMP IF LIST = CRT 

TEST FOR USER DEFINED LIST DEVICE 

A := LSB OF LlLOC ADDRESS 

JUMP IF LIST = USER-DEFINED DEVICE 



SAVE BC 

LOAD LINE PRINTER STATUS COMMAND 

READ STATUS 

IS IT READY? 

LOOP UNTIL IT IS 

LOAD LINE PRINTER PRINT COMMAND 

OUTPUT CHARACTER CONTAINED IN C-REG 

RESTORE BC 



'i i 't i I I 'i i 'i i i 'i i i i 'i 'i } 't 'i 't 'i 'i 'i 'i 'i 'i 'i 't 't 'i 't 'i t 'i 'i 'i 'i 'i t I I I I I ' • > > I I I ' I > ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' 

; 'CSTS' - EXTERNALLY REFERENCED ROUTINE '> 

; ENTERED VIA CALL FROM 'BREAK' ROUTINE » 

; PROCESS: LOCAL CONSOLE INPUT STATUS 

; INPUT: '* 

; OUTPUT: A-REG CONTAINS 00 IF NO KEY HAS BEEN DEPRESSED, ; 

A-REG CONTAINS FFH IF A KEY HAS BEEN DEPRESSED ; 

; MODIFIED: A, FLAGS '* 

; STACK USAGE: 2 BYTES ' 

CSTS: ; LOCAL CONSOLE INPUT STATUS 

LDA lOBYT ; GET STATUS BYTE 

ANI NOT CMSK ; LOOK ONLY AT CONSOLE FIELD OF lOBYT 

JNZ CS0 ; JUMP IF CONSOLE IS NOT TTY 
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LOC OBJ 



FD4C DBFS 
FD4E E602 

FD50 C374FD 



FD53 FE01 
FD55 C279FD 
FD58 E5 
FD59 2A0400 
PD5C 2ECC 
PD5E 7E 
FD5F El 
FD60 0F 

FD61 D26BFD 



FD64 DBF7 
FD66 E602 

FD68 C374FD 



FD6B C5 
FD6C 0613 
FD6E CD7FFF 
FD71 E601 

FD73 CI 

FD74 3E00 
FD76 C8 
FD77 2F 
FD78 C9 



FD79 FE02 
FD7B 3EFF 
FD7D C8 
FD7E 3EFD 

FD80 C38CFC 



LINE 

2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 



SOURCE STATEMENT 

CONSOLE = TTY 

IN TTYS 
ANI RRDY 



JMP 



CS2 



GET TTY STATUS 

IS RECEIVE BUFFER READY? (IF TTY KEY WAS 
DEPRESSED, ZERO BIT WILL BE RESET) 



; CONSOLE = CRT, BATCH, 

CS0: 

CPI CCRT 

JNZ CS3 

PUSH H 

LHLD MEMTOP 

MVI L,ILOC- 

MOV A,M 

POP H 
RRC 



OR USER-DEFINED 



JNC 



CSl 



CONSOLE = CRT? 

JUMP IF CONSOLE IS NOT CRT 

SAVE H,L 

1 AND 0FFH; HL POINTS TO CONFIGURATION BYTE IN EXIT TEMPLATE 
A CONTAINS THIS CONFIGURATION BYTE 
RESTORE H,L 
ROTATE BIT INTO CARRY; THUS CARRY = 1 

MEANS INTEGRATED CRT NOT PRESENT 
JUMP IF INTEGRATED CRT PRESENT 



; CONSOLE = SERIAL CRT 
IN uses 
ANI RRDY 



JMP 



CS2 



; CONSOLE = INTEGRATED 

CSl: 

PUSH B 
MVI B,KSTS 
CALL lOCDRl 
ANI KRDY 



CRT 



CS2! 



POP 

MVI 
RZ 
CMA 
RET 



B 

A, FALSE 



GET CRT STATUS 

IS RECEIVE BUFFER READY? (IF KEY HAS BEEN 
DEPRESSED, ZERO BIT WILL BE RESET) 



INTELLEC WITH INTEGRATED CRT 

SAVE B,C 

LOAD CRT STATUS COMMAND 

GET CRT STATUS 

IS RECEIVE BUFFER READY? (IF KEY HAS BEEN 

DEPRESSED, ZERO BIT WILL BE RESET) 
RESTORE B,C 

COMMON RETURN POINT FOR CRT, TTY 
INITIALIZE A-REG TO 00 
RETURN WITH A := 00 IF NO DATA AVAILABLE 



; CONSOLE = BATCH OR US 
CS3: 

CPI BATCH 

MVI A, TRUE 

RZ 

MVI A,CSLOC 



JMP 



@USER 



; RETURN VflTH A := FF IF DATA AVAILABLE 

ER-DEFINED DEVICE 

; IS IT BATCH? 

; RETURN IF CONSOLE IS BATCH; A : = FF 
AND 0FFH; CONSOLE = USER DEFINED LOCAL CONSOLE, BRANCH 
; TO USER'S OWN STATUS ROUTINE 



iiiiiiiiiiiiiiiiiitiiiitiiiiitittiitiiiiititiiiittiiiiiiiiiiitiitiittiiiiiiiiiii 

; 'lOCHK' - EXTERNALLY REFERENCED ROUTINE 

; PROCESS: GET I/O SYSTEM STATUS 

; INPUT: 

; OUTPUT: STATUS BYTE RETURNED IN A-REG 

; MODIFIED: A 

; STACK USAGE: 2 BYTES 



'titiiitiiiiitiiiiiiiiiiiiitiiiiiiiiiitiitiiiiittiiiiitiiiiiiiiitiiiiiiittittiti 
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LOC OBJ 



LINE 



SOURCE STATEMENT 



FD83 3A0300 
FD86 C9 



FD87 79 
FD88 320300 
FD8B C9 



FD8C 3A0500 
FD8F 3D 



FD90 47 
FD91 3EC0 
FD93 C9 



FD94 E5 
FD95 C5 
FD96 2A0400 
FD99 2EE9 
FD9B 79 
FD9C FE08 
FD9E D247F8 
FDAl 81 
FDA2 81 
FDA3 4F 
FDA4 0600 
FDA6 09 



2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 



lOCHK: 



LDA 
RET 



lOBYT 



; GET STATUS BYTE 
; RETURN 



}iii}itiiiiiiiiiiiiiiii>tiiiiii>i'iii'''f'''i't''''''''''''''''''''''''''''''''' 

; 'lOSET' - EXTERNALLY REFERENCED ROUTINE 

; PROCESS: SET I/O CONFIGURATION 

; INPUT: NEW I/O STATUS BYTE IN C-REG 

; OUTPUT: lOBYT CONTAINS NEW I/O CONFIGURATION 

; MODIFIED: A, C 

; STACK USAGE: 2 BYTES 

litiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiitiiiiiiiiiiiitiiiiiiiiiii^ 

lOSET: 

MOV A,C 

STA lOBYT ; PUT NEW lOBYT IN MEMORY 

RET ; RETURN 

; 'MEMCHK' - EXTERNALLY REFERENCED ROUTINE 

; PROCESS: RETURN ADDRESS OF CONTIGUOUS END OF USER MEMORY 

; INPUT: MEMTOP,USER 

; OUTPUT: ADDRESS IS RETURNED IN B-REG (MSB) AND A-REG (LSB) 

; MODIFIED: A, B, FLAGS 

; STACK USAGE: 2 BYTES 

iiitiiiitiritiiiiitiittitiiiifiitftiiirtit'it'i't't't'''''''^ 

MEMCHK: 

LDA MEMTOP+1 ; MSB OF ADDRESS OF TOP PAGE OF MEMORY 

DCR A ; CHANGE IT TO THE PAGE BELOW THE TOP PAGE 

; RECALL TOP PAGE IS USED BY MONITOR SO 
USER SHOULD NOT ACCESS IT 

MOV B,A ; SO MSB GOES IN B-REG 

MVI A, USER AND 0FFH ; LSB IN A-REG 

RET ; AB POINTS TO BASE OF USER STACK IN SECOND 

; FROM TOP PAGE OF RAM 

tttiitrti}}}}}}}}}}}}}}}}}}}}}}}}}}}!}!}}}}}}}}}}}}!}}}}}'''}}^ 

; 'lODEF' - EXTERNALLY REFERENCED ROUTINE 

; PROCESS: DEFINE USER I/O ENTRY POINTS 

; INPUT: SELECTION CODE IN C-REG, USER ENTRY POINT ADDRESS IN D,E 

; OUTPUT: 

; MODIFIED: A, FLAGS 

; STACK USAGE: 8 BYTES 

; EXPLANATION: POINT HL TO TABLE OF USER ENTRY POINTS IN TOP OF RAM; 

SUBSTITUTE IN THERE THE ADDRESS GIVEN BY THE USER IN DE REGISTERS. 



lODEF: 



PUSH H ; SAVE H & L 

PUSH B ; SAVE B & C 

LHLD MEMTOP ; GET XTBL+1 

MVI L, XTBL+1 AND 0FFH; HL NOW POINTS TO XTBL+1 IN TOP PAGE OF RAM 

MOV A,C ; A := LOGICAL DEVICE CATEGORY 

CPI UCS+1 

JNC ERROR ; INVALID SELECTION CODE 

ADD C ; DOUBLE INDEX 

ADD C ; TRIPLE INDEX 

MOV C,A 

MVI B,0 

DAD B ; COMPUTE PROPER INDEX INTO XTBL 
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LOG OBJ 



LINE 



SOURCE STATEMENT 



FDA7 73 
FDA8 23 
FDA9 72 



FDAA CI 
FDAB El 
FDAC C9 



FDAD C5 
FDAE 0617 

FDB0 CDCEFF 

FDB3 CI 
FDB4 C5 
FDB5 48 
FDB6 CDDIFF 
FDB9 CI 
FDBA CDB8FF 
FDBD C9 



FDBE C5 
FDBF 0616 
FDCl 4B 
FDC2 CDCEFF 

FDC5 4A 
FDC6 CDDIFF 
FDC9 CI 



2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 



MOV 
INX 
MOV 



POP 
POP 
RET 



M,E 

H 

M,D 



STORE BRANCH OPERAND IN INSTRUCTION 

STORE THE USER-DEFINED I/O ENTRY ROUTINE 
ADDRESS IN THE PROPER PLACE IN XTBL, 
SO IT LOOKS- LIKE: 
JMP <USER-DEFINED ADDRESS> 

RESTORE B & C 

RESTORE H & L 



iiitiiiiiittiitiiitiitiitiittitiititititiiiitiiiiiiiiiiiiiitiiiiiiiiiiiiti 

; 'UI' - EXTERNALLY REFERENCED ROUTINE 

; PROCESS: INPUT A CHARACTER FROM THE UPP 

; INPUT: B CONTAINS MSB OF PROM ADDRESS 

; C CONTAINS LSB OF PROM ADDRESS 

; OUTPUT: DATA IN A-REG 

; MODIFIED:A, FLAGS 

; STACK USAGE: 6 BYTES 



I I I I I 1 1 

UI: 



I 1 1 1 I 



PUSH 
MVI 



CALL 



iiiiiiiiiiiiiiiiittiiiiiitfiiiiiiiiititiitiiiiiiiitiiiiiiiiiiiii 



B 
B,RPPC 

PI0DR3 



POP 


B 


PUSH 


B 


MOV 


C,B 


CALL 


PI0DR4 


POP 


B 


CALL 


PI0DR2 


RET 





IT IS ASSUMED THE 'UPPS' ROUTINE HAS BEEN 

CALLED AND THAT THE UPP UNIT IS READY 

SAVE B,C 

LOAD THE READ PROM COMMAND 

C CONTAINS PROM LOW ADDRESS 

OUTPUT READ PROM COMMAND 

OUTPUT PROM LOW ADDRESS 

RESTORE B,C; B CONTAINS PROM HIGH ADDRESS 

SAVE B,C 

C CONTAINS PROM HIGH ADDRESS 

OUTPUT PROM HIGH ADDRESS 

RESTORE B,C 

INPUT PROM DATA 



iiiitittitiiiitiiiiiiiiiiiitittiiititiittiiitiiiitttttiitiiitittiiiitittiiiitiii 

; 'UO' - EXTERNALLY REFERENCED ROUTINE 

; PROCESS: OUTPUT A CHARACTER TO THE UPP 

; INPUT: C CONTAINS THE CHARACTER TO BE WRITTEN INTO THE PROM 

; D CONTAINS THE MSB OF THE PROM ADDRESS 

; E CONTAINS THE LSB OF THE PROM ADDRESS 

; OUTPUT: 

; MODIFIED:A, FLAGS 

; STACK USAGE: 8 BYTES 



iirttiriiiffigtrrttiftrigiftiii 

UO: 



PUSH 


B 


MVI 


B,WPPC 


MOV 


C,E 


CALL 


PI0DR3 


MOV 


C,D 


CALL 


PI0DR4 


POP 


B 



IT IS ASSUMED THE 'UPPS' ROUTINE HAS BEEN 
CALLED AND THAT THE UPP UNIT IS READY 
SAVE B,C 

LOAD WRITE PROM COMMAND 
LOAD PROM LOW ADDRESS 
OUTPUT WRITE PROM COMMAND 
OUTPUT PROM LOW ADDRESS 
LOAD PROM HIGH ADDRESS 
OUTPUT PROM HIGH ADDRESS 
RESTORE B,C; C CONTAINS THE DATA TO BE 
WRITTEN TO THE PROM 
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LOC OBJ 

FDCA CDDIFF 
FDCD C9 



FDCE C5 
FDCF 0618 
FDDl CDB5FF 
FDD4 F5 
FDD5 CDB8FF 
FDD8 Fl 
FDD9 CI 
FDD A C9 



FDDB 
FDDC 
FDDF 
FDE2 
FDE3 
FDE4 
FDE5 
FDE6 
FDE7 
FDEA 
FDED 
FDEE 
FDEF 
FDF0 
FDFl 
FDF2 
FDF3 



C5 

CD58FF 

CD98FE 

07 

07 

07 

07 

4F 

CD58FF 

CD98FE 

81 

4F 

82 

57 

79 

CI 

C9 



LINE 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

2'374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 

2383 

2384 

2385 

2386 

2387 

2388 

2389 

2390 

2391 

2392 

2393 

2394 

2395 

2396 

2397 

2398 

2399 

2400 

2401 

2402 

2403 

2404 

2405 

2406 

2407 

2408 

2409 

2410 

2411 



SOURCE STATEMENT 



CALL 
RET 



PI0DR4 



OUTPUT DATA TO PROM 



; 'UPPS' - EXTERNALLY REFERENCED ROUTINE 

; PROCESS: INPUT THE UPP STATUS BYTE 

; INPUT: 

; OUTPUT: A-REG CONTAINS THE UPP STATUS BYTE 

; MODIFIED: 

; STACK USAGE: 8 BYTES 

til', it 'litiiifitii'i iiii'ii''i'^>>''''' '''''''''''''''''''''''' 

UPPS: 



SAVE BC 

B CONTAINS STATUS COMMAND 

GET UPP STATUS BYTE 

SAVE IT ON THE STACK 

GET PIO DEVICE STATUS BYTE AND IGNORE IT 

A NOW CONTAINS UPP STATUS BYTE 

RESTORE BC 



PUSH B 

MVI B,RPSTC 

CALL PIODRl 

PUSH PSW 

CALL PI0DR2 

POP PSW 

POP B 
RET 
******************************************************************************** 



* END OF I/O SUBROUTINES, BEGINNING OF MONITOR SUBROUTINES * 

******************************************************************************** 
*_*_*_*_*_*_*_*_*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* 

'BYTE' - ENTERED VIA CALL FROM 'R' COMMAND 

PROCESS: READ TWO 8-BIT ASCII CHARACTERS, DECODE INTO ONE 8-BIT BINARY WORD 
INPUT: D CONTAINS RUNNING CHECKSUM 

OUTPUT: DECODED BYTE IN A-REG, RUNNING CHECKSUM IN D-REG, ZERO BIT SET OR RESET 
MODIFIED: A,F,C,D 
STACK USAGE: 
BYTE: 



PUSH 

CALL 

CALL 

RLC 

RLC 

RLC 

RLC 

MOV 

CALL 

CALL 

ORA 

MOV 

ADD 

MOV 

MOV 

POP 



B 

RIX 

NIBBLE 



C,A 

RIX 

NIBBLE 

C 

C,A 

D 

D,A 

A,C 

B 



SAVE B C 

READ ONE ASCII CHAR FROM TAPE, PUT IN A-REG 
CONVERT 8-BIT ASCII TO 4-BIT HEXADECIMAL VALUE 
SHIFT FOUR PLACES TO THE LEFT 



MOVE HEX CHAR TO 4 MSB OF A-REG 

STORE TEMPORARILY IN C 

GET ANOTHER ASCII CHAR FROM READER 

CONVERT TO 4 BIT HEX; NOW LSB OF A-REG 

ASSEMBLE IT ALL TOGETHER 

STORE IT TEMPORARILY IN C 

UPDATE CHECKSUM (ZERO BIT IS SET/RESET) 

D CONTAINS UPDATED CHECKSUM 

LOAD THE CONVERTED WORD 



RET ; RETURN 

;//////////////////////////////////////////////////////////////////////////// 

;'CONV'- ENTERED VIA CALLS FROM 'DBYTE ' , ' HXD ' , ' PBYTE ' ROUTINES 

; PROCESS: CONVERT 4 BIT HEX VALUE TO ASCII CHARACTER 

; INPUT : ,1, 2 ,3, 4, 5,6 ,7,8 , 9,A,B,C,D,E, OR F IN HEX IN A-REG 

; OUTPUT: 30H, . . . ,39H, 41H, . . . ,46H IN C-REG 

; MODIFIED: A, FLAGS, C 
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LOC OBJ 



FDF4 E60F 
FDF6 C690 
FDF8 27 
FDF9 CE40 
FDFB 27 
FDFC 4F 
FDFD C9 



FDFE CDDEFC 
FE01 0D 
FE02 CDDEFC 
FE05 0A 
FE06 C9 



FE07 7C 
FE08 CD0CFE 
FE0B 7D 



FE0C F5 
FE0D 0F 
FE0E 0F 
FE0F 0F 
FE10 0F 
FEll CDF4FD 
FE14 CD14FD 
FE17 Fl 
FE18 CDF4FD 
FEIB C314FD 



LINE 

2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 



; ONLY 4 LSB ARE SIGNIFICANT, SO MASK 4 MSB 
; SET UP A-REG SO THAT A-F CAUSE CARRY 

; ADD IN CARRY AND ADJUST UPPER NIBBLE 



SOURCE STATEMENT 
; STACK USAGE: 

CONV: 

ANI 0FH 

ADI 90H 

DAA 

ACI 40H 

DAA 

MOV C,A ; STORE CONVERTED RESOLT IN C-REG 

RET ; RETURN 

//////////////////////////////////////////////////////////////////////////// 
'CRLF' - ENTERED VIA CALLS FROM 'G ' , 'H ' , 'Q ' , 'R' , ' W , 'X' COMMANDS AND 

'START' ROUTINE 
PROCESS: TYPE CARRIAGE RETURN AND LINE FEED ON LOCAL CONSOLE 
INPUT: 
OUTPUT: 
MODIFIED: 
STACK USAGE: 
CRLF: 

CALL COMC 

DB CR 

CALL COMC 

DB LF 

RET 
//////////////////////////////////////////////////////////////////////////// 
'DADR' - ENTERED VIA CALL FROM 'D' COMMAND 

PROCESS: PRINT CONTENTS OF HL IN HEX FORMAT ON LIST DEVICE 
INPUT: HL CONTAINS <LOW ADDRESS > OF 'D' COMMAND 
OUTPUT: 
MODIFIED: A 
STACK USAGE: 
DADR: 

MOV 

CALL 

MOV 

*******J|V|p 



OUTPUT <CR> ON CONSOLE 
OUTPUT <LF> ON CONSOLE 



PRINT MSB OF LOW ADDRESS 



PRINT LSB OF LOW ADDRESS 



A,H 
DBYTE 
A,L 
DBYTE 

//////////////////////////////////////////////////////////////////////////// 
•DBYTE' - ENTERED VIA CALLS FROM 'D' COMMAND AND 'DADR' ROUTINE 

ENTERED VIA FALL-THRU FROM 'DADR' ROUTINE 
PROCESS: LIST A BYTE ON THE LIST DEVICE AS TWO ASCII CHARACTERS 
INPUT: A CONTAINS THE BYTE TO BE LISTED 
OUTPUT: 
MODIFIED: 
STACK USAGE: 
DBYTE : 

PUSH PSW ; SAVE A COPY OF A-REG 

RRC 

RRC 

RRC 

RRC ; WANT TO LOOK ONLY AT BITS 4-7 OF A-REG 

CALL CONV ; CONVERT 4 MSB OF ORIGINAL A-REG TO 1 ASCII CHAR 

CALL LOM ; OUTPUT ON LIST DEVICE 

POP PSW ; RETRIEVE ORIGINAL VALUE 

CALL CONV ; CONVERT 4 LSB OF ORIGINAL A-REG TO 1 ASCII CHAR 

JMP LOM ; OUTPUT ON LIST DEVICE 
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LOG OBJ 



FEIE 0E70 

FE20 0D 
FE21 C220FE 
FE24 C9 



FE25 23 
FE26 5E 
FE27 3A0500 
FE2A 57 



FE2B 23 
FE2C 46 
FE2D 23 
FE2E lA 
FE2F CD5BFE 
FE32 05 
FE33 F8 
FE34 IB 
FE35 lA 
FE36 C35BFE 



FE39 CD74FE 
FE3C E3 

FE3D E5 
FE3E 0D 
FE3F D246FE 
FE42 C247F8 
FE45 C9 



LINE 

2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 



SOURCE STATEMENT 

/////////////////////////////////////////////////////////////////////////////// 
•DELAY' - ENTERED VIA CALL FROM 'RI' ROUTINE 
PROCESS: 1.0 MS. DELAY 
INPUT: ONEMS 

OUTPUT: ROUTINE IDLES FOR 1.0 MS. 
MODIFIED: C, FLAGS 
STACK USAGE: 2 BYTES 
DELAY: 

MVI C, ONEMS 
DLYl: 

DCR 
JNZ 
RET 



LOAD 1 MS. CONSTANT (USE 3BH IN ICE ENVIRONMENT) 



C 
DLYl 



; DECREMENT COUNTER 
; JUMP IF NOT EXPIRED 
; RETURN 

//////////////////////////////////////////////////////////////////////////// 
'DREG' - ENTERED VIA CALL FROM 'X' COMMAND 
PROCESS: DISPLAY THE CONTENTS OF A USER REGISTER 
INPUT: HL POINTS TO CHARACTER IN ACTBL OF 'X' COMMAND 
OUTPUT: HL POINTS TO NEXT CHARACTER IN ACTBL, 

DE CONTAINS ADDRESS OF REGISTER LOCATION 
B CONTAINS REGISTER PRECISION 
MODIFIED: 
STACK USAGE: 
DREG: 

INX H 
MOV E,M 
LDA MEMTOP+1 
MOV D,A 



INX 

MOV 

INX 

LDAX 

CALL 

DCR 

RM 

DCX 

LDAX 

JMP 



H 

B,M 

H 

D 

LBYTE 

B 

D 
D 
LBYTE 



HL POINTS TO LOCATION ENTRY IN ACTBL OF 
INCREMENT HL TO POINT AT DISPLACEMENT 



'X' COMMAND 



D := MSB OF ADDRESS OF TOP PAGE OF MEMORY 
DE POINTS TO THAT PART OF THE EXIT TEMPLATE 

CONTAINING SAVED REGISTER VALUES 
HL POINTS TO PRECISION IN ACTBL 
PRECISION, 0=8 BITS, 1=16 BITS 
POINT AT NEXT REGISTER IDENTIFIER 
8/16 BIT DISPLAY AND MODIFICATION 
MSB OF 16 BIT REG, ALL OF 8 BIT REG 
TEST PRECISION 
8 BIT DISPLAY, RETURN 



; LSB OF 16 BIT REG 

/////////////////////////////////////////////////////////////////////////////// 
'EXPR' - ENTERED VIA CALLS FROM ' D ' , ' E ' , ' F ' , ' H ' , ' M ' , ' R ' , ' W COMMANDS 
PROCESS: EVALUATE EXPRESSION "<EXPR>, <EXPR>, <EXPR>" 

INPUT: C-REG CONTAINS THE NUMBER OF PARAMETERS REQUIRED (1,2, OR 3) 
OUTPUT: STACK CONTAINS THE PARAMETERS IN REVERSE ORDER 
MODIFIED: F,C,H,L,SP 
STACK USAGE: 



EXPR! 



CALL 


PARAM 


XTHL 




PUSH 


H 


DCR 


C 


JNC 


EX0 


JNZ 


ERROR 


RET 





GET A HEXADECIMAL PARAMETER, RETURNED IN HL 
PUT THE PARAMETER IN THE STACK; HL NOW 

CONTAINS RETURN ADDRESS OF CALL TO 'EXPR' 
PUT RETURN ADDRESS ON TOP OF STACK 
DECREMENT PARAMETER COUNT; CARRY BIT UNAFFECTED 
JUMP IF COMMA ENTERED (PARAM CALLS PCHK) 
INCORRECT PARAM COUNT 
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LOC OBJ 



LINE 



SOURCE STATEMENT 



FE46 C239FE 
FE49 C347F8 



FE4C 23 
FE4D 7C 
FE4E B5 

FE4F 37 
FE50 C8 
FE51 7B 
FE52 95 
FE53 7A 
FE54 9C 
FE55 C9 



FE56 7C 
FE57 CD5BFE 
FE5A 7D 



FE5B F5 
FE5C 0F 
FE5D 0F 
FE5E 0F 
FE5F 0F 
FE60 CD64FE 
FE63 Fl 



2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 



EX0: 

JNZ EXPR ; GET ANOTHER PARAMETER 

JMP ERROR ; NOT TERMINATED WITH CR 

/////////////////////////////////////////////////////////////////////////////// 
'HILO' - ENTERED VIA CALLS FROM " D ' , ' F ' , ' M ' , ' W COMMANDS 
PROCESS: COMPARE HL WITH DE 
INPUT: ADDRESS VALUES IN HL AND DE 
OUTPUT: IF HL <= DE THEN- CARRY = 0; 

IF HL > DE THEN CARRY = 1 
MODIFIED: HL,A,F 
STACK USAGE: 
HILO: 

INX H 
MOV A,H 
ORA L 



STC 

RZ 

MOV 

SUB 

MOV 

SBB 

RET 



A,E 
L 

A,D 
H 



INCREMENT HL ADDRESS 

TEST FOR HL = 

ZERO BIT SET IF H=L=00, I.E. HL MUST 

HAVE BEEN FFFFH 
CARRY := 1 

DE - HL, SET/RESET CARRY 
(LSB OF HIGH ADDR) - (MSB OF LOW ADDR) 



; (MSB OF HIGH ADDR) - (MSB OF LOW ADDR) 
; RETURN 

//////////////////////////////////////////////////////////////////////////// 
'LADR' - ENTERED VIA CALLS FROM 'H' COMMAND AND 'RESTART' ROUTINE 
PROCESS: PRINT CONTENTS OF HL IN HEX ON LOCAL CONSOLE DEVICE 
INPUT: HL CONTAINS THE HEX VALUE TO BE OUTPUT (16 BITS) 
OUTPUT: 

MODIFIED: H,L,A 
STACK USAGE: 
LADR: 

MOV A,H 

CALL LBYTE ; PRINT 8 MSB OF HEX VALUE ON CONSOLE 

MOV A,L 
*******JMP LBYTE ; PRINT 8 LSB OF HEX VALUE ON CONSOLE 

//////////////////////////////////////////////////////////////////////////// 
'LBYTE' - ENTERED VIA CALLS FROM 'S' COMMAND AND "DREG ',' LADR ' ROUTINES 
ENTERED VIA JUMP FROM 'DREG' ROUTINE 
ENTERED VIA FALL-THRU FROM 'LADR' ROUTINE 
PROCESS: LIST A BYTE AS TWO ASCII CHARACTERS 
INPUT: A-REG CONTAINS THE 8 BITS TO BE CONVERTED TO ASCII 
OUTPUT: 
MODIFIED: A,F 
STACK USAGE: 6 BYTES 
LBYTE: 

PUSH PSW ; SAVE A-REG 

RRC 
RRC 
RRC 

RRC ; LOOK ONLY AT 4 MSB OF THE BYTE VALUE 

CALL HXD ; CONVERT IT TO ONE ASCII CHAR AND OUTPUT IT 

POP PSW ; RETRIEVE ORIGINAL VALUE 

;*******JMP HXD ; CONVERT 4 LSB OF BYTE TO ASCII AND OUTPUT IT 

;///////////////////////////////////////////////////////////////////////////// 

; 'HXD' - ENTERED VIA CALL FROM 'LBYTE' ROUTINE 
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LOG OBJ 



FE64 CDF4FD 
FE67 C395FC 



FE6A 0E0D 
FE6C CD14FD 
FE6F 0E0A 
FE71 C314FD 



FE74 CDC5FE 
FE77 CA47F8 

FE7A 210000 

FE7D 47 
FE7E CD98FE 

FE81 DA90FE 
FE84 29 
FE85 29 
FE86 29 
FE87 29 
FE88 B5 
FE89 6F 
FE8A CD61FF 
FE8D C37DFE 

FE90 78 
FE91 CDC8FE 
FE94 C247F8 
FE97 C9 



LINE 

2577 
2578 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
2594 
2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 



SOURCE STATEMENT 

ENTERED VIA FALL-THRU FROM 'LBYTE' ROUTINE 
PROCESS: CONVERT 4 LSB IN A-REG INTO ONE ASCII CHAR IN A-REG, PRINT IT 

ON LOCAL CONSOLE DEVICE 
INPUT: NIBBLE TO BE CONVERTED IS IN BITS 0-3 OF A-REG 
OUTPUT: 

MODIFIED: A-REG 
STACK USAGE: 
HXD: 

CALL CONV ; CONVERT 4 BITS TO ONE 8-BIT ASCII CHAR 

JMP COM ; OUTPUT ON LOCAL CONSOLE 

///////////////////////////////////////////////////////////////////////////// 
•LCRLF' - ENTERED VIA CALL FROM 'D' COMMAND 
PROCESS: PRINT <CR>,<LF> ON LIST DEVICE 
INPUT: 
OUTPUT: 
MODIFIED: C 
STACK USAGE: 4 BYTES 
LCRLF: 

MVI C,CR 

CALL LOM ; OUTPUT <CR> TO LIST DEVICE 

MVI C,LF 

JMP LOM ; OUTPUT <LF> TO LIST DEVICE 

/////////////////////////////////////////////////////////////////////////////// 
'PARAM' - ENTERED VIA CALLS FROM 'G^'S' COMMANDS AND 'EXPR' ROUTINE 
'PA0' - ENTERED VIA CALLS FROM 'G','S','X' COMMANDS 
PROCESS: COLLECT A HEXADECIMAL PARAMETER 
INPUT: 

OUTPUT: HEXADECIMAL PARAMETER IN HL 
MODIFIED: A,F,B,H,L 
STACK USAGE: 



PARAM : 



PA0: 



PAl; 



PA2: 



CALL 
JZ 

LXI 

MOV 
CALL 

JC 

DAD 

DAD 

DAD 

DAD 

ORA 

MOV 

CALL 

JMP 

MOV 
CALL 
JNZ 
RET 



PCHK 
ERROR 

H,0 

B,A 
NIBBLE 

PA2 

H 

H 

H 

H 

L 

L,A 

TI 

PAl 

A,B 
P2C 
ERROR 



GET FIRST CHARACTER 
DISALLOW NULL PARAMETERS 

INTIALIZE HL := 0000 

SAVE CHAR IN CASE IT'S A DELIMITER 

CONVERT THE ASCII CHARACTER TO HEX; MUST BE 

0-9, A-F; IF NOT THE CARRY BIT IS SET 
NOT LEGAL CHAR, TREAT AS DELIMITER 
*2 
*4 
*8 

*16 SHIFT THE OLD HEX VALUES 4 PLACES TO LEFT 

PUT NEW HEX VALUE IN 4 LSB OF L-REG 

GET SUBSEQUENT CHARACTERS 
DECODE NEXT CHARACTER 



A := B 
IS IT A 



:= DELIMITER CHARACTER 
VALID DELIMITER? 



JUMP TO ERROR IF IT ISN'T 



;//////////////////////////////////////////////////////////////////// 

; 'NIBBLE' - ENTERED VIA CALLS FROM 'BYTE ', 'PARAM' , 'PA0 ' ROUTINES 
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LOC OBJ 



FE98 D630 
FE9A D8 
FE9B C6E9 
FE9D D8 
FE9E C606 
FEA0 F2A6FE 
FEA3 C607 
FEA5 D8 



FEA6 C60A 
FEA8 B7 
FEA9 C9 



FEAA 7C 
FEAB CDAFFE 
FEAE 7D 



FEAF 


5F 


PEB0 


0F 


FEBl 


0F 


FEB2 


0F 


FEB3 


0F 


FEB4 


CDF4FD 


FEB7 


CDE9FC 


FEBA 


7B 


FEBB 


CDF4PD 


FEBE 


CDE9FC 


FECI 


7B 


FEC2 


82 



LINE 

2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 



SOURCE STATEMENT 

PROCESS: DECODE 8-BIT ASCII CHAR IN A-REG INTO 4-BIT HEX DIGIT IN A-REG, 
FILTER OUT ALL CHARACTERS NOT IN THE ASCII CODING SEQUENCE 
0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F. 

INPUT: 8-BIT ASCII CHAR IN A-REG 

OUTPUT: VALID HEX EQUIVALENT IN A-REG AND CARRY = 0, OTHERWISE 

GARBAGE IN A-REG AND CARRY = 1 (INDICATING ILLEGAL CHARACTER) 

MODIFIED: A, FLAGS 



STACK USAGE: 
NIBBLE: 



2 BYTES 



SUI 

RC 

ADI 

RC 

ADI 

JP 

ADI 

RC 



'0' 



- 'G' 



NI0: 



ADI 
ORA 
RET 



6 

NI0 
7 



10 
A 



IF THE ASCII CHAR IS BETWEEN 00 AND 2FH, 

THEN RETURN WITH CARRY = 1 
IF THE ASCII CHAR IS GREATER THAN 46H, 

THEN RETURN WITH CARRY » 1 
ORIGINAL ASCII CHAR WAS BETWEEN 30H AND 46H INCL. 
JUMP IF IT WAS 41H THRU 46H (I.E. A-F) 
ORIGINAL ASCII CHAR WAS BETWEEN 30H AND 40H INCL. 
RETURN WITH CARRY = 1 IF ASCII CHAR WAS 

BETWEEN 3AH AND 40H INCLUSIVE 
VALID VALUE: 30H-39H,41H-46H 
A-REG NOW CONTAINS HEX EQUIV. (0-9, A-P) 
CLEAR ERROR FLAG (I.E. RESET CARRY BIT) 
RETURN WITH VALID VALUE 
////////////////////////////////////////////////////////////////////// 
'PADR' - ENTERED VIA CALLS FROM 'E','W' COMMANDS 
PROCESS: PUNCH CONTENTS OF HL IN HEX ON PUNCH DEVICE 
INPUT: HL CONTAINS 8-BIT LOAD ADDRESS 
OUTPUT: 
MODIFIED: A 
STACK USAGE 
PADR: 

MOV 

CALL 

MOV 



4 BYTES 

A,H 
PBYTE 
A,L 
PBYTE 



A := MSB OF LOAD ADDRESS 
EMIT FRAMES 3 & 4 



A : = 



LSB OF LOAD ADDRESS 
5 & 6 



SAVE BYTE TO BE CONVERTED IN E-REG 



EMIT FRAMES 

//////////////////////////////////////////////////////////////////////// 
'PBYTE' - ENTERED VIA CALLS FROM 'E','W' COMMANDS AND 'PADR' ROUTINE 

ENTERED VIA FALL-THRU FROM 'PADR' ROUTINE 
PROCESS: PUNCH A BYTE AS 2 ASCII CHARACTERS 

INPUT: A-REG CONTAINS BYTE TO BE CONVERTED, D CONTAINS RUNNING CHECKSUM 
OUTPUT: D CONTAINS UPDATED CHECKSUM 
MODIFIED: A,F,D,E 
STACK USAGE: 
PBYTE: 

MOV E,A 

RRC 

RRC 

RRC 

RRC 

CALL CONV 

CALL PO 

MOV A,E 

CALL CONV 

CALL PO 

MOV A,E 

ADD D 



LOOK ONLY AT 4 MSB OF THE BYTE 
CONVERT IT TO 1 ASCII CHARACTER 
PUNCH IT 

NOW LOOK ONLY AT 4 LSB OF BYTE 
CONVERT IT TO ONE ASCII CHAR 
PUNCH IT 

UPDATE THE RUNNING CHECKSUM 
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LOC OBJ 

FEC3 57 
FEC4 C9 



FEC5 CD61FF 

FEC8 FE20 
FECA C8 
FECB FE2C 
FECD C8 
FECE FE0D 
FED0 37 
FEDl C8 
FED2 3F 
FED3 C9 



LINE 

2687 

2688 

2689 

2690 

2691 

2692 

2693 

2694 

2695 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

2704 

2705 

2706 

2707 

2708 

2709 

2710 

2711 

2712 

2713 

2714 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

2728 

2729 

2730 

2731 

2732 

2733 

2734 

2735 

2736 

2737 

2738 

2739 

2740 

2741 



SOURCE STATEMENT 



MOV 



D,A 



STORE IT BACK IN THE D-REG 



RET ; RETURN 

/////////////////////////////////////////////////////////////////////////////// 
•PCHK' - ENTERED VIA CALLS FROM 'C'S^'X' COMMANDS AND 'PARAM' ROUTINE 
•P2C' - ENTERED VIA CALLS FROM ' PARAM ',' PA0 ' ROUTINES 

PROCESS: TEST FOR NULL INPUT PARAMETER (LOOK FOR SPACE, COMMA, OR <CR>) 
INPUT: 
OUTPUT: CHARACTER IN A-REG 

IF SPACE OR COMMA, THEN ZERO = 1 AND CARRY = 
IF <CR>, THEN ZERO = 1 AND CARRY = 1 

IF NONE OF ABOVE, THEN ZERO = AND CARRY = 
MODIFIED: A, FLAGS 
STACK USAGE: 4 BYTES 
PCHK: 

CALL TI ; GET A CHARACTER 

P2C: 



CPI 

RZ 

CPI 

RZ 

CPI 

STC 

RZ 

CMC 

RET 



CR 



IF SPACE, THEN ZERO = 1 & CARRY = 
IF COMMA, THEN ZERO = 1 & CARRY = 

IF <CR>, THEN ZERO = 1 & CARRY = 1 



RET ; IF NONE OP THE THREE, THEN ZERO=CARRY=0 

/////////////////////////////////////////////////////////////////////////////// 

/ 'RESTART' - ENTERED VIA JUMP FROM LOCATION 

/ PROCESS: BREAKPOINT/INTERRUPT/RESTART PROCESSING 

/ INPUT: 

/ OUTPUT: 

/ MODIFIED: 

/ EXPLANATION: 

/ THIS ROUTINE IS ENTERED VIA A RESTART (RST 0) INSTRUCTION. THE 

/ INSTRUCTION IS ENCOUNTERED EITHER IN THE USER PROGRAM (AS A BREAKPOINT) 

/ OR IS INPUT VIA A LOCAL CONSOLE INTERRUPT (I.E. USER HAS ACTIVATED THE 

/ INTERRUPT SWITCH). THIS ROUTINE SAVES THE STATE OF THE CALLING 

/ PROCESS AND TURNS CONTROL OVER TO THE MONITOR. THIS IS DONE IN THE 

/ FOLLOWING MANNER: 



/ 1. THE USER ENVIRONMENT IS SAVED BY PUSHING THE REGISTERS ON TOP 

/ OF THE USER'S OWN WORK STACK. 

/ 2. PROGRAM THE 8259 WITH THE MONITOR'S OWN INTERRUPT MASK REGISTER. 

/ 3. THE MONITOR'S EXIT TEMPLATE IS FOUND AND THE REGISTER VALUES 

/ REPRESENTING THE USER'S STATE ARE POPPED OFF THE USER WORK STACK 

/ AND STORED IN THE APPROPRIATE PLACES IN THE EXIT TEMPLATE. 

/ 4. TEST TO SEE IF THE POINT AT WHICH USER PROGRAM INTERRUPTION 

/ OCCURRED (VALUE OF PROGRAM COUNTER) COINCIDES WITH A BREAKPOINT 

/ ADDRESS . 

/ A. IF IT DOESN'T, THEN RESTART CODE WAS ENTERED VIA A CONSOLE 

/ INTERRUPT SO SEND EOI TO THE 8259. 

/ B. IF IT DOES, THEN PROGRAM THE EXIT CODE TO 1) LOAD THE CORRECT 

/ H AND L VALUES AND TO 2) JUMP TO THE ADDRESS INDICATED BY THE PC 

/ (PUSHED ON STACK AT TIME OF RST INSTRUCTION OR WHEN CONSOLE 

/ INTERRUPT) . ALSO, RESTORE THE TRAP VALUES AT THE PROPER 

/ TRAP ADDRESSES. 

/ 5. RETURN CONTROL TO THE MONITOR (BY JUMPING TO START). 
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LOC OBJ 



FED4 F3 

FEDS E5 
FED6 D5 
FED? C5 
FEDS F5 
FED9 Dl 
FEDA E5 



FEDB 2A0400 
FEDE 2ECC 

FEE0 6E 
FEEl DBFC 

FEE3 67 
FEE4 E3 

FEES DS 
FEES 3EFE 
FEES D3FC 
FEEA 2A0400 
FEED 2ED2 
FEEF EB 
FEF0 210C00 
FEF3 39 



FEF4 060S 
FEF6 EB 



FEF7 2B 
FEFS 72 
FEF9 2B 
FEFA 73 
FEFB Dl 
FEFC 0S 
FEFD C2F7FE 



LINE 

2742 
2743 
2744 
274S 
2746 
2747 
274S 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 



SOURCE STATEMENT 

;/ / 

;/////////////////////////////////////////////////////////////////////////////// 

RESTART: 

Dl ; DISABLE IF SOFTWARE TRAP 

; SAVE USER'S ENVIRONMENT 

PUSH H ; SAVE H,L 

PUSH D ; SAVE D,E 

PUSH B ; SAVE B,C 

PUSH PSW ; SAVE A, FLAGS 

POP D ; TEMPORARILY SAVE PSW IN D & E 

PUSH H ; DUMMY PUSH TO RESERVE SPACE IN STACK FOR 

; CURRENT INTERRUPT MASK AND CONFIGURATION 
BYTE 



LHLD 
MVI 

MOV 
IN 

MOV 
XTHL 

PUSH 

MVI 

OUT 

LHLD 

MVI 

XCHG 

LXI 

DAD 



MVI 



XCHG 



RST0; 



MEMTOP 

L,IL0C-1 AND 0FFH; 



L,M 
SOCPl 



H,A 



D 

A, NOT INT0 

SOCPl 

MEMTOP 

L,EXIT AND 0FFH 

H,12 
SP 



B,S 



HL NOW POINTS TO CONFIGURATION BYTE IN 
EXIT CODE IN TOP PAGE OF RAM 
L NOW CONTAINS THIS CONFIGURATION BYTE 

INPUT CURRENT INTERRUPT MASK REGISTER 

THIS MASK IS THE USER'S, SO SAVE IT 
H NOW CONTAINS THIS INTERRUPT MASK 
THE INTERRUPT MASK AND CONFIGURATION BYTE 

ARE NOW ON TOP OF THE USER STACK 
NOW PUT THE ORIGINAL PSW ON TOP OF THE STACK 
SET MONITOR'S DEFAULT INTERRUPT MASK 
OUTPUT NEW MASK 



HL NOW POINTS TO 
SO NOW DE POINTS 
H := 00, L := 0C 
EFFECT OF THIS IS 



EXIT CODE AT TOP OF RAM 
TO EXIT CODE AT TOP OF RAM 
(DECIMAL VALUE 12) 
TO CUT BACK THE USER'S 



STACK TO WHAT IT WAS BEFORE ENTERING 
THIS RESTART ROUTINE AND BEFORE THE PC 
WAS PUSHED ON BY RST OR INTERRUPT. 
HL CONTAINS THIS 'OLD' STACK ADDRESS. 
COUNT FOR TRANSFER OF MACHINE STATE 

TO EXIT TEMPLATE STORAGE (MOVE THE STACK) 
HL NOW POINTS TO EXIT CODE AT TOP OF RAM 
DE NOW POINTS TO USER STACK AS IT WAS 
PRIOR TO RST OR CONSOLE INTERRUPT. 



DCX 


H 


MOV 


M,D 


DCX 


H 


MOV 


M,E 


POP 


D 


DCR 


B 


JNZ 


RST0 



MOVE THE MACHINE STATE FROM THE USER'S STACK 
TO THE RESERVED AREA IN THE EXIT TEMPLATE 
IN TOP PAGE OF RAM. 

B=5 ! B=4 ! B=3 ! B=2 ! B=l 



SLOC=MSB(SP) !ALOC=A ! ILOC=INT! BLOC=B !DLOC=D 



=LSB(SP) !FLOC=FLG, 
DE=AF !DE=INT,F1 
B=4 !B=3 



=FLG 1 CLOC=C ! ELOC=E 
DE=BC !DE=DE !DE=HL 
B=2 !B=1 !B=0 



; AT THIS POINT, HL POINTS TO THE BASE OF 

THE MONITOR STACK (TOS) IN TOP PAGE OF 
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LOC OBJ 



FF00 CI 

FF01 0B 
FF02 F9 
FF03 2A04( 
FF06 2EE2 

FF08 7E 
FF09 91 



FF0A 23 
FF0B C213FF 
FF0E 7E 
FF0F 98 
FF10 CA25FF 



FF13 23 
PF14 23 
FF15 7E 
FF16 91 
FF17 23 
FF18 C220FF 
FFIB 7E 
FFIC 98 
FFID CA25FF 

FF20 3E20 
FF22 D3FD 
FF24 03 



FF25 2A0400 
FF28 2EDC 
PF2A 73 
FF2B 23 
FF2C 72 

FF2D 2EE0 
FF2F 71 
FF30 23 
FF31 70 



FF32 C5 



LINE 

2797 

2798 

2799 

2800 

2801 

2802 

2803 

2804 

2805 

2806 

2807 

2808 

2809 

2810 

2811 

2812 

2813 

2814 

2815 

2816 RSTA: 

2817 

2818 

2819 

2820 

2821 

2822 

2823 

2824 

2825 

2826 

2827 RSTB! 

2828 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836 RSTl; 

2837 

2838 

2839 

2840 

2841 

2842 

2843 ; 

2844 

2845 

2846 

2847 

2848 

2849 

2850 ; 

2851 



SOURCE STATEMENT 



POP 

DCX 
SPHL 
LHLD 
MVI 

MOV 
SUB 



INX 
JNZ 
MOV 
SBB 
JZ 



INX 
INX 
MOV 
SUB 
INX 
JNZ 
MOV 
SBB 
JZ 

MVI 
OUT 
INX 



LHLD 

MVI 

MOV 

INX 

MOV 



MVI 
MOV 
INX 
MOV 



B 

B 

MEMTOP 

L,TLOC AND 0FFH 

A,M 
C 



H 

RSTA 

A,M 

B 

RSTl 



H 

H 

A,M 

C 

H 

RSTB 

A,M 

B 

RSTl 

A,EOI 
SOCP0 
B 



MEMTOP 

L,LLOC AND 0FFH 

M,E 

H 

M,D 



RAM. DE CONTAINS THE H & L VALUES THE 

USER HAD PRIOR TO ENTERING THE RESTART 

ROUTINE. 
BC = OLD PC (PUSHED ON USER STACK BY 

RST OR INTERRUPT) 
DECREMENT TO POINT AT TRAPPED CODE 
SP NOW POINTS TO TOS (BASE OF MONITOR STACK) 

HL NOW POINTS TO TLOC IN TOP PAGE OF RAM 

I.E. LSB OF TRAP 1 ADDRESS 
TEST IF THIS IS A PROGRAMMED RESTART OR A 

LOCAL CONSOLE INTERRUPT BY COMPARING THE 

PC VALUE WITH TRAP 1 ADDRESS 

A := LSB OF TRAP 1 ADDRESS 
HL POINTS TO MSB OF TRAP 1 ADDRESS 
PC DID NOT MATCH TRAP 1 ADDRESS 
A := MSB OF TRAP 1 ADDRESS 

PC MATCHES TRAP 1 A PROGRAMMED RESTART 

REPEAT SAME STEPS AS ABOVE BUT SEE IF PC 

MATCHES 2ND BREAKPOINT (TRAP 2 ADDRESS) 
HL POINTS TO TRAP 1 OPCODE VALUE 
HL POINTS TO LSB OF TRAP 2 ADDRESS 
A := LSB OF TRAP 2 ADDRESS 

HL POINTS TO MSB OF TRAP 2 ADDRESS 
PC DID NOT MATCH TRAP 2 ADDRESS 
A := MSB OF TRAP 2 ADDRESS 

PC MATCHES TRAP 2 A PROGRAMMED RESTART 

NOT A PROGRAMMED RESTART, BUT A 

CONSOLE INTERRUPT SO SEND EOI TO 8259 

ADJUST PC FOR LOCAL CONSOLE RESTART 
I.E. GET READY TO POINT PC TO 
RESUMPTION POINT IN CODE IT WAS 
EXECUTING WHEN INTERRUPTED 
BC POINTS TO NEXT INSTR TO BE EXECUTED 
WHEN CONTROL IS RETURNED TO USER PROGRAM 

PROGRAMMED RESTART AT A BREAKPOINT (TRAP) 
ALSO FALLTHROUGH FROM CONSOLE INTERRUPT 

; HL NOW POINTS TO LLOC IN EXIT CODE IN TOP OF RAM 
; USER'S L VALUE PRIOR TO RESTART IS STORED IN LLOC 

; USER'S H VALUE PRIOR TO RESTART IS STORED IN HLOC 



L,PL0C-1 AND 0FFH; HL POINTS TO LSB OF JMP INSTR IN EXIT CODE 

M,C ; SAVE LSB OF USER'S PC 

H 



M,B 



SAVE MSB OF USER'S PC. EFFECT IS TO LOAD THE 

PROPER ADDRESS INTO THE EXIT TEMPLATE FOR THE 
JUMP BACK TO THE USER'S PROGRAM. 



PUSH 
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LOG OBJ 



LINE 



SOURCE STATEMENT 



FF33 CDDEFC 
FF36 23 
FF37 El 
PF38 CD56FE 



FF3B 2A0400 
FF3E 2EE2 
FF40 1602 

FF42 4E 

FF43 AF 

FF44 77 

FF45 23 

FF46 46 

FF47 77 

FF48 23 

FF49 79 

FF4A B0 

FF4B CA50FF 

FF4E 7E 

FF4F 02 



FF50 23 
FF51 15 
FF52 C242FF 
FF55 C355F8 



FF58 CD0FFC 
FF5B DA47F8 
FF5E E67F 
FF60 C9 



FF61 C5 

FF62 CDBEFB 

FF65 E67F 

FF67 CD76FF 



2852 

2853 

2854 

2855 

2856 

2857 

2858 

2859 

2860 

2861 

2862 

2863 

2864 

2865 

2866 

2867 

2868 

2869 

2870 

2871 

2872 

2873 

2874 

2875 

2876 

2877 

2878 

2879 

2880 

2881 

2882 

2883 

2884 

2885 

2886 

2887 

2888 

2889 

2890 

2891 

2892 

2893 

2894 

2895 

2896 

2897 

2898 

2899 

2900 

2901 

2902 

2903 

2904 

2905 

2906 



CALL COMC 

DB ■#' 

POP H 

CALL LADR 



RETRIEVE OLD PC FOR DISPLAY 
DISPLAY PC 



RST2: 



LHLD MEMTOP 

MVI L,TLOC AND 0FFH 

MVI D,2 

MOV C,M 

XRA A 

MOV M,A 

INX H 

MOV B , M 

MOV M,A 

INX H 

MOV A,C 

ORA B 

JZ RST3 

MOV A,M 

STAX B 



RST3: 



INX H 

DCR D 

JNZ RST2 

JMP START 



CLEAR TRAPS 

HL NOW POINTS TO TLOC IN TOP PAGE OF RAM 
SET COUNT FOR TWO TRAPS 

C := LSB OP TRAP ADDRESS 

ZERO OUT LSB OF TRAP ADDRESS 

B := MSB OF TRAP ADDRESS 

ZERO OUT MSB OF TRAP ADDRESS 

HL NOW POINTS TO TRAP VALUE 

EC CONTAINS THE TRAP ADDRESS 

TEST FOR VALID TRAP 

TRAP ADDRESS IS 0, SO NO TRAP TO RESTORE 

GET OPCODE BYTE, I.E. TRAP VALUE 

PUT IT BACK IN CORRECT PLACE IN USER PROGRAM, 

I.E. REPLACE THE RST INSTR WITH ORIGINAL 

OPCODE. 

POINT TO TRAP 2 ADDRESS IF D=2 



; REPEAT FOR TRAP 2 

; ENTER MONITOR (INTERRUPTS STILL DISABLED) 

/////////////////////////////////////////////////////////////////////////////// 
'RIX' - ENTERED VIA CALLS FROM 'R' COMMAND AND 'BYTE' ROUTINE 
PROCESS: GET A CHARACTER FROM READER, MASK OFF PARITY BIT 
INPUT: 

OUTPUT: CHARACTER IN A-REG, BIT 7 IS 
MODIFIED: A,F 
STACK USAGE: 
RIX: 

CALL RI 

JC ERROR 

ANI 7FH 



RET 



GET CHARACTER FROM READER DEVICE 
READER TIMEOUT ERROR 
MASK OUT THE PARITY BIT 
RETURN 



/////////////////////////////////////////////////////////////////////////////// 
'TI' - ENTERED VIA CALLS FROM 'A','N','Q' COMMANDS AND 'START' ,' PARAM* 



'PA0','PCHK' ROUTINES 

ENTERED VIA JUMP FROM 'BREAK' 
PROCESS: INPUT FROM LOCAL CONSOLE, ECHO, RETURN IN A-REG 
INPUT: 

OUTPUT; CHARACTER IN A-REG 
MODIFIED: A,F 
STACK USAGE: 



TI 



PUSH 


B 


CALL 


CI 


ANI 


7FH 


CALL 


UC 



SAVE STATE OF B- & C-REGS 

GET A CHARACTER FROM THE CONSOLE 

MASK OFF PARITY BIT 

CONVERT TO UPPER CASE 
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LOC OBJ 

FF6A FE03 
FF6C CA47F8 
FF6F 4F 
FF70 CD9FFC 
FF73 79 
FF74 CI 
FF75 C9 



FF76 FE61 
FF78 F8 



FF79 FE7B 
FF7B F0 



FF7C E6DF 
FF7E C9 



FF7F CDA6FP 



FF82 DBCl 
FF84 E607 
FF86 FE01 
PF88 C282FF 
FP8B DBC0 
FF8D F5 
FF8E 3E05 
FF90 D3FF 
FF92 Fl 
FF93 C9 



LINE 

2907 
2908 
2909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 



CPI 


ETX 


JZ 


ERROR 


MOV 


C,A 


CALL 


CO 


MOV 


A,C 


POP 


B 



SOURCE STATEMENT 

; TEST FOR BREAK 

; ABORT COMMAND 

; MOVE INPUT CHARACTER TO C-REG 

; ECHO IT 

; RESTORE STATE OF B & C 
RET ; RETURN 

////////////////////////////////////////////////////////////////////////////// 
'UC - ENTERED VIA CALL FROM 'TI' ROUTINE 

PROCESS: CONVERT CHARACTER IN A-REG FROM LOWER CASE TO UPPER CASE 
INPUT: LOWER OR UPPER CASE CHAR IN A-REG 
OUTPUT: UPPER CASE CHARACTER IN A-REG 
MODIFIED: A,F 
STACK USAGE: 



UCi 



CPI 
RM 



'A'+20H 



CPI 


'Z'+20H+1 


RP 




AN I 


NOT 20H 



CHAR < LC(A) , I.E. IF THE CHAR IN A-REG 
IS NOT LOWER CASE, THEN IT HAS VALUE 
< 61H, SO A - 61H WILL BE MINUS. IF 
IT IS IN LOWER CASE, THE RESULT WILL 
BE POSITIVE. 

CHAR > LC(Z) , I.E. WE KNOW THE A-REG IS 
UPPER CASE OR SPECIAL CHAR. IF IT IS A 
SPECIAL CHAR, A - 78H WILL BE OR 
GREATER SO RETURN. 

FORCE UPPER CASE 
RET 

* * 

* I/O CONTROLLER INTERFACE DRIVERS * 

* * 

•lOCDRl' - ENTERED VIA CALLS FROM •CI','CSTS' ROUTINES 
PROCESS: GET DEVICE STATUS OR GET DATA FROM PERIPHERAL 
INPUT: B CONTAINS THE COMMAND (STATUS REQUEST OR INPUT DATA REQUEST) 
OUTPUT: A CONTAINS THE REQUESTED INFORMATION 
MODIFIED: A, FLAGS, B 
STACK USAGE: 
lOCDRl: 



lOCXXX: 



CALL 



IN 

AN I 

CPI 

JNZ 

IN 

PUSH 

MVI 

OUT 

POP 

RET 



lOCCOM 



IOCS 

IBF OR OBF OR F0 

OBF 

lOCXXX 

lOCI 

PSW 

A,ENABL 

CPUC 

PSW 



OUTPUT 'GET DEVICE STATUS COMMAND* OR 
'INPUT DATA COMMAND' TO IOC CONTROL 
PORT 

INPUT DBB STATUS 

MASK OFF STATUS FLAGS 

TEST FOR SLAVE DONE; SOMETHING FOR THE MASTER 

IF NOT, CONTINUE TO LOOP 

OTHERWISE, INPUT THE DATA FROM THE DBB 

SAVE A-REG 

ENABLE INTERRUPTS 

RESTORE A-REG 
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LOC OBJ 



FF94 CDA6FF 



FF97 DBCl 
FF99 E607 
FF9B C297FF 
FF9E 79 
FF9F D3C0 
FFAl 3E05 
FFA3 D3FF 
FFA5 C9 



FFA6 3E0D 
FFA8 D3FF 

FFAA DBCl 
FFAC E607 
FFAE C2AAFF 
FFBl 78 
FFB2 D3C1 
FFB4 C9 



FFB5 CDE4FF 



FFB8 3E0D 



LINE 

2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 
3000 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
3008 
3009 
3010 
3011 
3012 
3013 
3014 
3015 
3016 



SOURCE STATEMENT 

'I0CDR2' - ENTERED VIA CALLS FROM "ELK" , 'COM' , 'CO ' , 'CRTOUT ' ROUTINES 
PROCESS: OUTPUT DATA TO THE PERIPHERAL DEVICE 
INPUT: B CONTAINS THE COMMAND TO OUTPUT THE DATA 

C CONTAINS THE DATA TO BE OUTPUT 
OUTPUT: 

MODIFIED: A,FLAGS,B,C 
STACK USAGE: 
I0CDR2: 

CALL lOCCOM 



lOCYYY: 



IN IOCS 

ANI IBF OR F0 OR OBF 

JNZ lOCYYY 

MOV A,C 

OUT lOCO 

MVI A,ENABL 

OUT CPUC 

RET 



OUTPUT 'OUTPUT DATA COMMAND' TO IOC 
CONTROL PORT 

INPUT DBB STATUS 

TEST FOR SLAVE PROCESSOR READY 

CONTINUE TO LOOP UNTIL IT IS READY 

LOAD DATA TO BE WRITTEN 

OUTPUT DATA TO THE DBB 

ENABLE INTERRUPTS 



•lOCCOM" - COMMON ROUTINE TO IOC DRIVERS 

ENTERED VIA CALLS FROM ' lOCDRl ' AND 'I0CDR2' 
PROCESS: OUTPUT COMMAND TO THE IOC 
INPUT: B CONTAINS THE COMMAND 
OUTPUT: 

MODIFIED: A, FLAGS 
STACK USAGE: 



lOCCOM: 



lOCZZZ: 



MVI A,DISABL 

OUT CPUC 

IN IOCS 

ANI F0 OR IBF OR OBF 

JNZ lOCZZZ 

MOV A,B 

OUT lOCC 

RET 



BLOCK ALL INTERRUPTS 



INPUT DBB STATUS 

TEST FOR SLAVE PROCESSOR IDLE 

LOOP UNTIL IT IS IDLE 

LOAD COMMAND 

OUTPUT COMMAND TO IOC CONTROL PORT 



* * 

* PARALLEL I/O INTERFACE DRIVERS * 

* * 

•PIODRl' - ENTERED VIA CALLS FROM 'RI ' , ' PO ' , ' POC ' , ' LO ' , 'UPPS ' 
'PI0DR2' - ENTERED VIA CALLS FROM 'Ur','UPPS' ROUTINES 
PROCESS: GET DEVICE STATUS OR GET DATA FROM A PERIPHERAL 
INPUT: B CONTAINS THE COMMAND (STATUS REQUEST OR INPUT DATA REQUEST) 
OUTPUT: A CONTAINS THE REQUESTED INFORMATION 
MODIFIED: A, FLAGS, B 
STACK USAGE: 
PIODRl: 

CALL 



PI0DR2: 



MVI 



PIOCOM 



A,DISABL 



OUTPUT 'GET DEVICE STATUS COMMAND' OR 
'INPUT DATA COMMAND' OR OTHER SUCH 
COMMAND TO THE PIO CONTROL PORT 

BLOCK ALL INTERRUPTS 
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LOG OBJ 



LINE 



SOURCE STATEMENT 



FFBA 


D3FF 


FFBC 


DBF9 


FFBE 


E607 


FFC0 


FE01 


FFC2 


C2B8FF 


FFC5 


DBF8 


FFC7 


F5 


FFC8 


3E05 


FFCA 


D3FF 


FFCC 


Fl 


FFCD 


C9 



FFCE 


CDE4FF 


FFDl 


3E0D 


FFD3 


D3FF 


FFD5 


DBF9 


FFD7 


E607 


FFD9 


C2D1FF 


FFDC 


79 


FFDD 


D3F8 


FFDF 


3E05 


FFEl 


D3FF 


FFE3 


C9 



FFE4 3E0D 
FFE6 D3FF 

FFE8 DBF9 
FFEA E607 
FFEC C2E8FF 
FFEF 78 
FFF0 D3F9 
FFF2 3E05 
FFF4 D3FF 
FFF6 C9 

FFFD 
FFFD 6C 



3017 
3018 
3019 
3020 
3021 
3022 
3023 
3024 
3025 
3026 
3027 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
3069 
3070 
3071 



OUT CPUC 

IN PIOS 

ANI F0 OR IBF OR OBF 

CPI OBF 

JNZ PI0DR2 

IN PIOI 

PUSH PSW 

MVI A,ENABL 

OUT CPUC 

POP PSW 

RET 



INPUT DBB STATUS 

MASK OFF STATUS FLAGS 

TEST FOR SLAVE DONE; SOMETHING FOR THE MASTER 

LOOP UNTIL SLAVE IS READY 

OTHERWISE INPUT THE DATA FROM THE DBB 

SAVE A-REG 

ENABLE INTERRUPTS 

RESTORE A-REG 



•PI0DR3' 

'PI0DR4' 

PROCESS: 

INPUT: B 
C 

OUTPUT: 

MODIFIED 

STACK USAGE: 
PI0DR3: 

CALL 
PI0DR4: 

MVI 

OUT 

IN 

ANI 

JNZ 

MOV 

OUT 

MVI 

OUT 

RET 



- ENTERED VIA CALLS FROM 'POC ' > 'PO' , ' LO' , 'UI ' , 'UO* ROUTINES 

- ENTERED VIA CALLS FROM 'UI', "UO" 
OUTPUT DATA TO A PERIPHERAL DEVICE 



CONTAINS THE 
CONTAINS THE 

A, FLAGS, B, C 



COMMAND TO OUTPUT THE DATA 
DATA TO BE OUTPUT 



PIOCOM 

A,DISABL 

CPUC 

PIOS 

F0 OR IBF 

PI0DR4 

A,C 

PIOO 

A,ENABL 

CPUC 



OUTPUT 'OUTPUT DATA COMMAND' TO PIO 

BLOCK ALL INTERRUPTS 

INPUT DBB STATUS 
OR OBF; TEST FOR SLAVE PROCESSOR READY 
LOOP UNTIL IT IS READY 
LOAD DATA TO BE WRITTEN 
OUTPUT DATA TO THE DBB 
ENABLE INTERRUPTS 



'PIOCOM' - COMMON ROUTINE OF PIO DRIVERS 

ENTERED VIA CALLS FROM 'PIODRl', 'PIODRS', 
INPUT: B CONTAINS THE COMMAND 
OUTPUT: 

MODIFIED: A, FLAGS 
STACK USAGE: 



'RI' ROUTINES 



PIOCOM: 



BLOCK ALL INTERRUPTS 



PIOZZZ; 



MVI A,DISABL 

OUT CPUC 

IN PIOS 

ANI F0 OR IBF OR OBF 

JNZ PIOZZZ 

MOV A,B 

OUT PIOC 

MVI A,ENABL 

OUT CPUC 

RET 

ORG 0FFFDH 

MNCKSM: DB 06CH ; CHKSUM MONITOR TO 01EH 



INPUT DBB STATUS 

TEST FOR SLAVE PROCESSOR IDLE 

LOOP UNTIL IT IS IDLE 

LOAD THE COMMAND 

OUTPUT THE COMMAND TO THE PIO CONTROL PORT 

ENABLE INTERRUPTS 
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FPFE 00 
FPFF 01 



3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 
3080 



DB 00 ; UNUSED BYTE 

DB 01 ; 0, IF SERIES I MONITOR 

; 1, IF SERIES II MONITOR 
I 

• END OF PROGRAM 
END 



PUBLIC SYMBOLS 



EXTERNAL SYMBOLS 



USER SYMBOLS 






































§USER 


A 


FC8C 


ACHRM 


A 


007F 


ACT 


A 


F913 


ACTBL 


A 


FB81 


ALOC 


A 


EACF 


ALT 


A 


F92B 


ALUPl 


A 


F8D3 


ALUP2 


A 


F8DB 


ALUP3 


A 


F8F2 


APT 


A 


F923 


ART 


A 


F91B 


AS0 


A 


F8BE 


ASl 


A 


F8CD 


AS 2 


A 


F8E5 


AS3 


A 


F8F2 


ASSIGN 


A 


F8B6 


B0110 


A 


02BA 


B2400 


A 


0020 


B9600 


A 


0007 


BASE 


A 


F800 


BATCH 


A 


0002 


BBASE 


A 


E800 


BCDC 


A 


0001 


BDLY 


A 


EA23 


BDLYl 


A 


EA25 


BEGIN 


A 


F800 


BLK 


A 


FC93 


BLOC 


A 


EACB 


BOVROF 


A 


0001 


BOVRON 


A 


0009 


BREAK 


A 


FC07 


BS0 


A 


E806 


BSl 


A 


E83B 


BS10 


A 


E913 


BSll 


A 


E920 


BS12 


A 


E94E 


BS13 


A 


E959 


BS14 


A 


E97B 


BSIX 


A 


E84F 


BS2 


A 


E862 


BS3 


A 


E86A 


BS4 


A 


E8AC 


BS5 


A 


E8C0 


BS6 


A 


E8C6 


BS7 


A 


E8DC 


BS8 


A 


E8E2 


BS9 


A 


E8EA 


BSXl 


A 


E98E 


BSX10 


A 


EA18 


BSX2 


A 


E9A4 


BSX3 


A 


E9B2 


BSX4 


A 


E9BD 


BSX5 


A 


E9CC 


BSX6 


A 


E9EA 


BSX8 


A 


E9FE 


BSX9 


A 


EA0D 


BTCKSM 


A 


EA64 


BTDGOF 


A 


0004 


BTDGON 


A 


000C 


BYTE 


A 


PDDB 


CCRT 


A 


0001 


CI 


A 


FBBE 


CI0 


A 


FBD0 


CIl 


A 


FBEl 


CI2 


A 


FBEB 


CI3 


A 


FBEC 


CI4 


A 


FBFD 


CI LOC 


A 


EAE8 


CL5 


A 


0000 


CL6 


A 


0004 


CL7 


A 


0008 


CL8 


A 


000C 


CLERR 


A 


0010 


CLOC 


A 


EACA 


OMSK 


A 


00FC 


CNOTD 


A 


0008 


CO 


A 


FC9F 


CO0 


A 


FCB2 


COLOC 


A 


EAEB 


COM 


A 


FC95 


COMC 


A 


FCDE 


COMD 


A 


0025 


CONC 


A 


00C1 


CON I 


A 


00C0 


CONO 


A 


00C0 


CONS 


A 


00C1 


CONV 


A 


FDF4 


COP 


A 


F809 


CPUC 


A 


00FF 


CPUS 


A 


00FE 


CR 


A 


000D 


CRLF 


A 


FDFE 


CRTC 


A 


0010 


CRTOTl 


A 


FCCA 


CRT0T2 


A 


FCD5 


CRTOUT 


A 


FCBE 


CRTS 


A 


0011 


CS0 


A 


FD53 


CSl 


A 


FD6B 


CS2 


A 


FD74 


CS3 


A 


FD79 


CSLOC 


A 


EAFD 


CSMEM 


A 


0008 


CSTS 


A 


FD44 


CTBL 


A 


F882 


CTR0P 


A 


00F0 


CTR0S 


A 


0000 


CTRIP 


A 


00F1 


CTRIS 


A 


0040 


CTR2P 


A 


00F2 


CTR2S 


A 


0080 


CTTY 


A 


0000 


CUSE 


A 


0003 


DADR 


A 


FE07 


DATE 


A 


0103 


DBYTE 


A 


PE0C 


DECHO 


A 


0007 


DELAY 


A 


FEIE 


DI0 


A 


F938 


DIl 


A 


F93E 


DI2 


A 


F956 


DIAGBT 


A 


EB03 


DIAGMN 


A 


EB00 


DISABL 


A 


000D 


DISAXP 


A 


0000 


DISP 


A 


F933 


DLOC 


A 


EAC9 


DLYl 


A 


PE20 


DPRNT 


A 


0008 


DREG 


A 


FE25 


DSR 


A 


0080 


DSTAT 


A 


0003 


DSTS 


A 


0078 


DTR 


A 


0002 


ELOC 


A 


EAC8 


ENABL 


A 


0005 


ENAXP 


A 


0008 


ENDX 


A 


EB00 


ENHM 


A 


0080 


EOF 


A 


F95F 


EOI 


A 


0020 


ERESET 


A 


0001 


ERMSG 


A 


EA56 


ERROR 


A 


F847 


ETX 


A 


0003 


EX0 


A 


FE46 


EXIT 


A 


EAD2 


EXPR 


A 


FE39 


F0 


A 


0004 


FALSE 


A 


0000 


FDOC 


A 


0004 


FI0 


A 


F984 


FILL 


A 


F97D 


FLOC 


A 


EACE 


FRDY 


A 


0001 


PSTOP 


A 


00E7 


FSTP 


A 


00F7 


GO0 


A 


F9A4 


GOl 


A 


F9AA 


G02 


A 


P9BA 


GO 3 


A 


F9C2 


G04 


A 


F9D1 


GOTO 


A 


F98C 


HEXN 


A 


F9D5 


HI 


A 


007A 


HILO 


A 


FE4C 


HLOC 


A 


EADD 


HMSK 


A 


00FF 


HXD 


A 


FE64 


IBF 


A 


0002 


ICFG 


A 


0041 


ICNP 


A 


0001 


ICRTI 


A 


0020 


ICRTO 


A 


0010 


ICWl 


A 


0012 


ICW2 


A 


0000 


IICP0 


A 


00FB 


IICPl 


A 


00FA 


I LOC 


A 


EACD 


I LPT 


A 


0040 


INIT 


A 


E803 


INITIO 


A 


0006 


INT0 


A 


0001 


INTl 


A 


0002 


INT2 


A 


0004 


INT3 


A 


0008 


INT4 


A 


0010 


INT5 


A 


0020 


INT6 


A 


0040 


INT7 


A 


0080 


INTA 


A 


0000 


lOBYT 


A 


0003 


lOCC 


A 


00C1 


lOCCOM 


A 


FFA6 


lOCDPl 


A 


F821 


I0CDP2 


A 


F844 


lOCDRl 


A 


FF7F 


I0CDR2 


A 


FF94 


lOCHK 


A 


FD83 


lOCI 


A 


00C0 


lOCO 


A 


00C0 


IOCP0 


A 


00FB 


lOCPl 


A 


00FA 


IOCS 


A 


00C1 


lOCXXX 


A 


FF82 


lOCYYY 


A 


FF97 


lOCZZZ 


A 


FFAA 


lODEF 


A 


FD94 


lOPB 


A 


EA34 


lOSET 


A 


FD87 


IPTP 


A 


0004 


IPTR 


A 


0008 


ITCP 


A 


00F3 


ITIMO 


A 


00FF 


ITTYI 


A 


0002 


ITTYO 


A 


0001 


KEYC 


A 


0012 


KINT 


A 


0014 


KRDY 


A 


0001 


KSTS 


A 


0013 


LILOC 


A 


EAFA 


LADR 


A 


FE56 


LBMK 


A 


00FF 


LBYTE 


A 


FE5B 


LCRLP 


A 


FE6A 


LCRT 


A 


0040 


LCT 


A 


001A 


LCTR 


A 


0000 


LERM 


A 


000E 


LF 


A 


00 0A 


LLOC 


A 


EADC 


LLPT 


A 


0080 


LMSK 


A 


003P 


LO 


A 


FDIE 


LOM 


A 


FD14 


LOWW 


A 


0079 


LP0 


A 


FD33 


LPTC 


A 


0014 


LPTRY 


A 


0001 


LSTC 


A 


0015 


LSTE 


A 


0040 


LTBL 


A 


F903 


LTTY 


A 


0000 


LUSE 


A 


00C0 


LVER 


A 


0018 


MEMCHK 


A 


FD8C 


MEMTOP 


A 


0004 


MENB 


A 


0080 


MLP 


A 


E902 


MNCKSM 


A 


FFFD 


MODE0 


A 


0000 


MODEl 


A 


0002 


MODE 2 


A 


0004 


M0DE3 


A 


0006 


MODE 4 


A 


0008 


MODE 5 


A 


000A 


MOVBOT 


A 


0002 


MOVE 


A 


F9F0 


MV0 


A 


F9F7 
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NI0 


A 


FEA6 


NIBBLE 


A 


FE98 


NLEADX 


A 


FA0B 


NREGS 


A 


000C 


NU0 


A 


FA09 


NULL 


A 


FA01 


OBF 


A 


0001 


0CW3 


A 


000B 


ONEMS 


A 


0070 


OPCPL 


A 


0004 


PILOC 


A 


EAF4 


P2C 


A 


FEC8 


P2L0C 


A 


EAF7 


PA0 


A 


FE7A 


PAl 


A 


FE7D 


PA 2 


A 


FE90 


PACIFY 


A 


0000 


PADR 


A 


FEAA 


PARAM 


A 


FE74 


PARML 


A 


0004 


PBYTE 


A 


FEAF 


PCHK 


A 


FEC5 


PCOMP 


A 


0002 


PENB 


A 


0010 


PEVEN 


A 


0020 


PGRDY 


A 


0001 


PIOC 


A 


00F9 


PIOCOM 


A 


FFE4 


PIODRl 


A 


FFB5 


PI0DR2 


A 


FFB8 


PI0DR3 


A 


FFCE 


PI0DR4 


A 


FFDl 


PIOI 


A 


00F8 


PIOO 


A 


00F8 


PIOS 


A 


00F9 


PIOZZZ 


A 


FFE8 


PLOC 


A 


EAEl 


PMSK 


A 


00CF 


PNIB 


A 


0010 


PO 


A 


FCE9 


PO0 


A 


FCF7 


POl 


A 


FD08 


POC 


A 


FCE5 


PPTP 


A 


0010 


PRTM 


A 


EA2A 


PSOCK 


A 


0020 


PSTC 


A 


0013 


PTPRY 


A 


0001 


PTRADV 


A 


0040 


PTRDY 


A 


0001 


PTRREV 


A 


0060 


PTTY 


A 


0000 


PUNC 


A 


0012 


PUSEl 


A 


0020 


PUSE2 


A 


0030 


Q0 


A 


FA21 


Ql 


A 


FA3D 


Q2 


A 


FA48 


QUERY 


A 


FA14 


R16X 


A 


0002 


RILOC 


A 


EAEE 


RIX 


A 


0001 


R2L0C 


A 


EAFl 


R64X 


A 


0003 


RADCT 


A 


0028 


RDBC 


A 


0019 


RDBCC 


A 


001A 


RDRC 


A 


0010 


RDSTS 


A 


001C 


READ 


A 


FA52 


RED0 


A 


FAS 9 


REDl 


A 


FA7B 


RED2 


A 


PA93 


RED3 


A 


FA9E 


RED4 


A 


FAB 3 


RESET 


A 


0000 


RES TAR 


A 


FED4 


RFR 


A 


0020 


RI 


A 


FC0F 


RI0 


A 


FCIF 


RIl 


A 


FC2C 


RI2 


A 


FC39 


RI3 


A 


FC47 


RI4 


A 


Fe4C 


RI4B 


A 


FC4F 


RI5 


A 


FC58 


RI6 


A 


FC65 


RI7 


A 


FC79 


RI8 


A 


FC82 


RIX 


A 


FF58 


RLLB 


A 


0010 


RLLM 


A 


0030 


RLMB 


A 


0020 


RMSK 


A 


00F3 


ROV 


A 


0010 


RPAR 


A 


0008 


RPPC 


A 


0017 


RPSTC 


A 


0018 


RPTR 


A 


0004 


RRDY 


A 


0002 


RRSTS 


A 


001B 


RST0 


A 


FEF7 


RSTl 


A 


FF25 


RST2 


A 


FF42 


RST3 


A 


FF50 


RSTA 


A 


FF13 


RSTB 


A 


FF20 


RSTC 


A 


0011 


RSTS 


A 


007B 


RTCC 


A 


04CD 


RTOCT 


A 


00FA 


RTS 


A 


0020 


RTTY 


A 


0000 


RUSEl 


A 


0008 


RUSE2 


A 


000C 


RXEN 


A 


0004 


SBCH 


A 


0008 


SICP0 


A 


00FD 


SICPl 


A 


00FC 


SINT 


A 


000A 


SLOC 


A 


EADl 


SOCP0 


A 


00FD 


SOCPl 


A 


00FC 


SRQ 


A 


0006 


SRQACK 


A 


0005 


SRQDAK 


A 


0004 


STl 


A 


0040 


ST15 


A 


0080 


ST2 


A 


00C0 


START 


A 


F855 


START0 


A 


F851 


SU0 


A 


FAC3 


SUl 


A 


FAD9 


SUBS 


A 


FABF 


SYNC 


A 


0000 


SYND 


A 


0040 


SYSTAT 


A 


0002 


TADV 


A 


0027 


TI 


A 


FF61 


TLOC 


A 


EAE2 


TOS 


A 


EAC8 


TOUT 


A 


00FA 


TRAM 


A 


0009 


TRDY 


A 


0001 


TRK0 


A 


3000 


TRKL 


A 


0D00 


TRUE 


A 


FFPF 


TTYC 


A 


00F5 


TTYI 


A 


00F4 


TTYIN 


A 


FBC6 


TTYO 


A 


00F4 


TTYOUT 


A 


FCA7 


TTYS 


A 


00F5 


TXBE 


A 


0004 


TXEN 


A 


0001 


UC 


A 


FF76 


UCI 


A 


0000 


UCO 


A 


0001 


UCS 


A 


0007 


UI 


A 


FDAD 


ULl 


A 


0006 


UO 


A 


FDBE 


UPl 


A 


0004 


UP2 


A 


0005 


UPPS 


A 


FDCE 


URl 


A 


0002 


UR2 


A 


0003 


usee 


A 


00F7 


USCI 


A 


00F6 


USCO 


A 


00F6 


uses 


A 


00F7 


USER 


A 


EAC0 


USRST 


A 


0040 


VER 


A 


000D 


VERH 


A 


0013 


VERS 


A 


EA3B 


WDBC 


A 


0017 


WDBCC 


A 


0018 


WPBC 


A 


0015 


WPBCC 


A 


0016 


WPPC 


A 


0016 


WR0 


A 


FAE5 


WRl 


A 


PAED 


WR2 


A 


FAF8 


WR3 


A 


PB07 


WRITE 


A 


FADD 


X 


A 


FB26 


X0 


A 


FB31 


XI 


A 


FB3F 


X2 


A 


FB42 


X3 


A 


FB5F 


X4 


A 


FB60 


X5 


A 


FB6A 


X6 


A 


FB6D 


XTBL 


A 


EAE8 


Z 


A 


FBA6 
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eusER 


1876 


1981 


1993# 2043 


ACHRM 


384# 






ACT 


1181 


1195# 




ACTBL 


1710 


1774# 


1788 


ALOC 


882# 


1775 




ALT 


1187 


1210# 




ALUPl 


1139# 


1142 




ALUP2 


1144# 


1147 




ALUP3 


1160# 


1163 




APT 


1185 


1205# 




ART 


1183 


1200# 




AS0 


1119# 


1127 




ASl 


1122 


1130# 




AS2 


1150# 


1156 




AS3 


1153 


1159# 




ASSIGN 


1080 


1114# 




B0110 


212# 


555 




B2400 


211# 


544 




B9600 


210# 






BASE 


962# 


963 




BATCH 


341# 


1198 


1873 2020 


BBASE 


414# 


415 


870 


BCDC 


209f 






BDLY 


573 


574 


587 588 


BDLYl 


825# 


827 




BEGIN 


810 


972# 




BLK 


1400 


1724 


1757 20151 


BLOC 


598 


651 


716 751 


BOVROF 


87# 


439 




BOVRON 


88« 






BREAK 


1885# 


2021 


2153 


BS0 


416 


435# 




BSl 


475# 


483 




BS10 


637# 


640 




BSll 


614 


649# 




BS12 


674# 


679 




BS13 


681# 


684 




BS14 


697# 


701 


708 


BSIX 


495# 


503 




BS2 


488 


511 


516# 


BS3 


521# 


526 




BS4 


568# 


577 




BS5 


572 


578# 




BS6 


582# 


591 




BS7 


586 


592# 




BS8 


576 


590 


596# 


BS9 


595 


601# 




BSXl 


617 


645 


654 658 


BSX10 


773 


786 


814# 


BSX2 


719 


728# 


740 745 


BSX3 


733 


736# 




BSX4 


735 


742# 




BSX5 


725 


756# 




BSX6 


770 


781# 




BSX8 


780 


791# 




BSX9 


776 


783 


790 803# 


BTCKSM 


863# 







2039 2152 2233 
823# 

876# 1776 



663 689 714# 



818 
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BTDGOF 


89# 


796 


1037 












BTDGON 


90# 


1800 














BYTE 


1528 


1534 


1536 


1538 


1551 


1558 


1589 


1594 


CCRT 


340# 


1197 


1837 


2041 


2200 








CI 


974 


1822# 


2904 












CI0 


1825 


1836# 














CIl 


18511 


1854 














CI2 


1848 


1859# 














CI3 


1861# 


1865 














CI4 


1838 


1872# 














CILOC 


911# 


931 


1875 












CL5 


144# 
















CL6 


143# 
















CL7 


142# 
















CL8 


141# 


549 


560 












CLERR 


157# 
















CLOC 


875# 


1777 














CMSK 


334# 


1180 


1824 


2019 


2025 


2151 


2189 




CNOTD 


306# 
















CO 


976 


202a# 


2910 












CO0 


2026 


2038# 














COLOC 


913# 


932 


2042 












COM 


1469 


1495 


1762 


2017# 


2093 


2586 






COMC 


1021 


1042 


1355 


1470 


1630 


1727 


1763 


2085# 


COMD 


178# 


1923 














CONC 


78# 
















CONI 


75# 
















CONO 


76# 
















CONS 


77# 
















CONV 


2414# 


2462 


2465 


2.585 


2680 


2683 






COP 


394# 


835 














CPUC 


96# 
3041 


438 
3048 


440 
3059 


442 
3067 


444 


792 


794 


1038 


CPUS 


95# 
















CR 


328# 


854 


856 


861 


861 


1045 


1162 


1441 


CRLF 


1041 


1382 


1394 


1467 


1521 


1653 


1755 


2430# 


CRTC 


233# 


2072 














CRTOTl 


2058# 


2061 














CRT0T2 


2055 


2067# 














CRTOUT 


2047# 


2161 














CRTS 


234# 


579 














CS0 


2190 


2199# 














CSl 


2209 


2218# 














CS2 


2196 


2215 


2225# 












CS3 


2201 


2232# 














CSLOC 


925# 


938 


2236 












CSMEM 


296# 
















CSTS 


979 


1886 


2187# 












CTBL 


1057 


1079# 


1106 












CTR0P 


216# 


557 


559 












CTR0S 


196# 


553 














CTRIP 


217# 


546 


548 












CTRIS 


197# 


542 














CTR2P 


218# 


459 


461 












CTR2S 


198# 


455 














CTTY 


339# 


1196 














CUSE 


343# 


1199 















1605 1606 2388# 



2431 



2433 2852 



1801 1909 1943 2958 2979 2991 3017 3025 



1461 1694 1750 1798 2432 2595 2707 
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DADR 


1232 


2443# 






























DATE 


56# 


423 


985 




























DBYTE 


1237 


2445 


2456# 




























DECHO 


295# 
































DELAY 


1920 


1930 


1964 


2474# 


























DI0 


1230# 


1243 






























DIl 


1233# 


1242 






























DI2 


1239 


1244# 






























DIAGBT 


764 


943# 






























DIAGMN 


941# 


1802 






























DISABL 


82# 


1908 


2990 


3016 


3040 


3058 






















DISAXP 


84# 
































DISP 


1083 


1226# 






























DLOC 


874# 


1778 






























DLYl 


2476# 


2478 






























DPRNT 


391# 


657 






























DREG 


1726 


1765 


2489# 




























DSR 


171# 
































DSTAT 


288# 
































DSTS 


315# 


611 


615 


638 


774 
























DTR 


154# 


177 


551 




























ELOC 


873# 


1779 






























ENABL 


83# 


441 


1942 


2957 


2978 


3024 


3047 


3066 


















ENAXP 


86f 


443 






























ENDX 


927# 
































ENHM 


160# 
































EOF 


1084 


1261# 






























EG I 


103# 


2828 






























ERESET 


286# 
































ERMSG 


815 


861# 


862 




























ERROR 


1017# 


1048 


1059 


1081 


1082 


1088 


1089 


1090 


1091 


1094 


1095 


1099 


1100 


1101 


1104 


1128 




1157 


1364 


1442 


1462 


1563 


1607 


1722 


1796 


1799 


2296 


2520 


2524 


2609 


2628 


2890 


2908 


ETX 


330# 


2907 






























EX0 


2519 


2522# 






























EXIT 


886# 


1335 


2768 




























EXPR 


1227 


1263 


1287 


1393 


1420 


1520 


1652 


2513# 


2523 
















F0 


305#' 


570 


584 


699 


2952 


2974 


2994 


3019 


3043 


3062 














FALSE 


320# 


321 


2226 




























FDOC 


383# 
































FI0 


1291# 


1294 






























FILL 


1085 


1285# 






























FLOC 


881« 


1780 






























FRDY 


250# 
































FSTOP 


381# 


486 


513 




























FSTP 


382# 
































GO0 


1343 


135i# 






























GOl 


1354# 


1362 






























G02 


1360 


1363* 






























GO 3 


1368# 


1380 






























G04 


1352 


1381# 






























GOTO 


1086 


1333# 






























HEXN 


1087 


1392# 






























HI 


313# 


636 






























HILO 


1238 


1293 


1428 


1666 


1697 


2533# 






















HLOC 


898# 


1781 


1784 




























HMSK 


322# 
1980 


527 
1982 


883 


1775 


1776 


1777 


1778 


1779 


1780 


1781 


1782 


1783 


1784 


1785 


1786 


1875 
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HXD 


2572 


2584# 








IBF 


304# 


570 


584 


699 


2952 


I CFG 


387# 


724 


737 






ICNP 


388# 


599 


752 






ICRTI 


374# 










ICRTO 


373# 










ICWl 


100« 


445 








ICW2 


101# 


448 








IICP0 


362# 


447 








IICPl 


363# 


450 








I LOG 


880# 


1782 


1841 


2050 


2204 


I LPT 


375# 










INIT 


417# 










INITIO 


408« 


759 








INT0 


107# 


451 


880 


2765 




INTl 


108# 










INT2 


109# 










INT3 


110# 










INT4 


111# 










INT5 


112# 










INT6 


113# 










INT7 


114# 










I NT A 


115# 


453 








lOBYT 


404# 


757 


1164 


1169 


1482 


lOCC 


229# 


580 


2997 






lOCCOM 


991 


2947 


2970 


2989# 




lOCDPl 


395# 


656 


660 


682 


686 


I0CDP2 


396# 


671 


677 






lOCDRl 


984 


1863 


1867 


2221 


2946# 


I0CDR2 


992 


2073 


2969# 






lOCHK 


980 


2247# 








lOCI 


226# 


593 


702 


2955 




lOCO 


227# 


2977 








IOCP0 


364# 










lOCPl 


365# 


454 








IOCS 


228# 


569 


583 


698 


2951 


lOCXXX 


2950# 


2954 








lOCYYY 


2972# 


2975 








lOCZZZ 


2992# 


2995 








lODEF 


983 


2289# 








lOPB 


623 


668 


844# 






lOSET 


981 


2258# 








IPTP 


371# 










IPTR 


372# 










ITCP 


219# 


456 


543 


554 




ITIMO 


385# 


567 


581 






ITTYI 


370# 










ITTYO 


369# 










KEYC 


235# 


1866 








KINT 


237# 










KRDY 


249# 


1864 


2222 






KSTS 


236# 


720 


1862 


2220 




LI LOG 


923# 


937 


2163 






LADR 


1399 


1408 


2552# 


2855 




LBMK 


386# 


598 


651 


716 


751 


LBYTE 


1629 


2500 


2505 


2554 


2566# 


LCRLF 


1231 


1245 


2594# 







2756 



1823 1902 2018 2024 2113 2150 2157 2188 2248 2260 



693 721 788 



2973 2993 
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LCRT 


356# 


1212 


2160 










LCT 


1058 


1106# 












LCTR 


199# 














LERM 


816 


862# 












LF 


329# 


854 


856 


861 


861 


1696 


2434 


LLOC 


897# 


1783 


2839 










LLPT 


357# 


1213 












LMSK 


337# 


1186 


2158 










LO 


978 


2040 


2156# 










LOM 


1235 


1247 


2149# 


2463 


2466 


2596 


2598 


LOWW 


312# 


634 












LP0 


2168# 


2172 












LPTC 


270# 


2173 












LPTRY 


278# 


2171 












LSTC 


271# 


2169 












LSTE 


389# 














LTBL 


1116 


1179# 


1465 










LTTY 


355# 


1211 












LUSE 


358# 


1214 


2162 










LVER 


805 


857# 












MEMCHK 


982 


2270# 












MEMTOP 


406# 


517 


597 


650 


715 


750 


1018 




2292 


2492 


2755 


2767 


2804 


2838 


2858 


MENB 


376# 














MLP 


625# 


631 












MNCKSM 


3071# 














MODE0 


203# 














MODEl 


204f 














MODE 2 


205# 














MODE 3 


206# 


455 


542 


553 








MODE 4 


207# 














MODES 


208# 














MOVBOT 


91# 


437 












MOVE 


1092 


1418# 












MV0 


1424# 


1429 












NI0 


2646 


2650# 












NIBBLE 


2391 


2398 


2614 


2640« 








NLEADX 


1445# 


1449 












NREGS 


1713 


1788# 












NU0 


1276 


1443# 












NULL 


1093 


1439# 












OBF 


303# 


570 


584 


585 


699 


700 


2952 


0CW3 


102# 














ONEMS 


326# 


824 


2475 










OPCPL 


311# 


639 


683 










PILOC 


919# 


935 


2134 










P2C 


2627 


2702# 












P2L0C 


921# 


936 


2136 










PA0 


1344 


1636 


1734 


2610# 








PAl 


2612# 


2624 












PA2 


2616 


2625# 












PACIFY 


285# 














PADR 


1270 


1675 


2661# 










PARAM 


1357 


1625 


2514 


2607# 








PARML 


393# 


672 












PBYTE 


1268 


1272 


1275 


1674 


1677 


1681 


1687 


PCHK 


1342 


1632 


1711 


1729 


2608 


2700# 





2597 



1334 1346 1365 1598 



1840 



1995 



2049 



2203 2271 



2953 2974 2994 3019 



3020 



3043 3062 



2663 2674# 



ISIS-II ASSEMBLER SYMBOL CROSS REFERENCE, V2.1 



PAGE 



PCOMP 


126# 








PENB 


145# 








PEVEN 


146# 








PGRDY 


127# 








PIOC 


260# 


3065 






PIOCOM 


1957 


3012 


3038 


3057# 


PIODRl 


1961 


1970 


2123 


2170 2370 


PI0DR2 


2333 


2372 


3015# 


3021 


PI0DR3 


2127 


2174 


2326 


2351 3037# 


PI0DR4 


2331 


2354 


2357 


3039# 3044 


PIOI 


257# 


3022 






PIOO 


258# 


3046 






PIOS 


259# 


3018 


3042 


3061 


PIOZZZ 


3060# 


3063 






PLOC 


903# 


1347 


1599 


1785 2844 


PMSK 


336# 


1184 


2114 




PNIB 


129# 








PO 


977 


2112# 


2681 


2684 


PO0 


2121# 


2125 






POl 


2117 


2132# 






POC 


1264 


1446 


1657 


1693 1695 


PPTP 


351# 


1207 


2116 




PRTM 


806 


817 


833# 


838 


PSOCK 


128# 








PSTC 


269# 


2122 






PTPRY 


280» 


2124 






PTRADV 


266# 


1956 






PTRDY 


279# 


1962 






PTRREV 


265# 








PTTY 


350# 


1206 






PUNC 


268# 


2126 






PUSEl 


352# 


1208 


2133 




PUSE2 


353# 


1209 






Q0 


1466# 


1499 






Ql 


1486# 


1493 






Q2 


1490 


1494# 






QUERY 


1096 


1459# 






R16X 


138# 


549 


560 




RILOC 


915# 


933 


1980 




RIX 


139# 








R2L0C 


917# 


934 


1982 




R64X 


137# 








RADCT 


175# 


1918 






RDBC 


242# 


692 






RDBCC 


243# 








RDRC 


264# 


1956 


1969 




RDSTS 


245# 


655 


659 


680 787 


READ 


1097 


1518# 






RED0 


1522# 


1525 


1585 




REDl 


1550# 


1557 






RED2 


1577# 


1584 






RED3 


1531 


1587# 






RED4 


1597 


1603~# 






RESET 


402# 


532 


534 




RESTAR 


531 


533 


2744# 




RFR 


169# 








RI 


975 


1874 


1900# 


2889 



3011# 



2105# 
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RI0 


1912# 


1915 






RIl 


1919# 


1922 






RI2 


1926# 


1932 






RI3 


1933# 


1967 






RI4 


1929 


1937# 






RI4B 


1936 


1940« 






RI5 


1904 


1950# 






RI6 


1959# 


1966 






RI7 


1963 


1968# 






RI8 


1952 


1977# 






RIX 


1523 


2390 


2397 


2888# 


RLLB 


201# 








RLLM 


202# 


455 


542 


553 


RLMB 


200# 








RMSK 


335# 


1182 


1903 




ROV 


168# 








RPAR 


167# 








RPPC 


273# 


2324 






RPSTC 


274# 


2369 






RPTR 


346# 


1202 


1951 




RRDY 


165# 


732 


739 


1830 1853 192 


RRSTS 


244« 


685 






RST0 


2782# 


2793 






RSTl 


2815 


2826 


2836# 




RST2 


2861# 


2879 






RST3 


2871 


2876# 






RSTA 


2812 


2816# 






RSTB 


2823 


2827# 






RSTC 


267# 


1960 






RSTS 


314« 


771 






RTCC 


390f 


457 






RTOCT 


176# 


1925 






RTS 


158# 


177 


178 


551 562 


RTTY 


345# 


1201 






RUSEl 


347# 


1203 


1979 




RUSE2 


348« 


1204 






RXEN 


155# 


177 


178 


551 562 


SBCH 


156# 








SICP0 


119# 


446 






SICPl 


120« 


449 






SINT 


298# 








SLOC 


527 


884# 


1786 




SOCP0 


121# 


2829 






SOCPl 


122# 


452 


891 


2759 2766 


SRQ 


291# 








SRQACK 


290# 








SRQDAK 


289# 








STl 


149# 








ST15 


148# 








ST2 


147# 


549 


560 




START 


1039# 


1046 


1050 


2880 


START0 


973 


1036# 






SU0 


1627# 


1642 






SUl 


1634 


1640# 






SUBS 


1098 


16241 






SYNC 


140# 








SYND 


170# 









2194 2213 
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SYSTAT 


287# 










TADV 


177# 


1916 








TI 


1044 


1115 


1140 


1145 


1161 


TLOC 


904# 


1366 


2805 


2859 




TOS 


518 


871# 


872 


1019 




TOUT 


327# 


1958 








TRAM 


297# 










TRDY 


164# 


2031 


2060 






TRK0 


316# 


687 


690 


784 


793 


TRKL 


392# 


691 








TRUE 


321# 


2234 








TTYC 


185# 


561 


563 


1917 


1924 


TTYI 


182# 


734 


1832 


1910 


1938 


TTYIN 


1828# 


1831 








TTYO 


183# 


2034 








TTYOUT 


2029# 


2032 


2115 


2159 




TTYS 


184# 


731 


1829 


1913 


1927 


TXBE 


166# 


1914 








TXEN 


153# 


177 


178 


551 


562 


UC 


2906 


2921# 








UCI 


931# 










UCO 


932# 










UCS 


938# 


2295 








UI 


986 


2320# 








ULl 


937# 










UO 


987 


2345# 








UPl 


935# 










UP2 


93 6# 










UPPS 


988 


2367# 








URl 


933# 










UR2 


934# 










usee 


192# 


550 


552 






USCI 


189# 


741 


1855 






USCO 


191# 


2063 








uses 


190# 


738 


1852 


2059 


2212 


USER 


872# 


883 


2276 






USRST 


159# 










VER 


54# 


855 


855 






VERH 


55# 


989 








VERS 


804 


854# 


857 






WDBC 


240# 










WDBCC 


241# 










WPBC 


238# 


669 








WPBCC 


239# 


673 








WPPC 


272# 


2349 








WR0 


1656# 


1698 








WRl 


1662# 


1667 








WR2 


1665 


1669# 








WR3 


1679# 


1684 








WRITE 


1102 


1651# 








X 


1103 


1709# 








X0 


1714# 


1721 








XI 


1716 


1723# 








X2 


1725# 


1752 








X3 


1739 


1743# 








X4 


1731 


1745# 








X5 


1712 


1754# 









1440 1460 



795 



797 



1794 



850 



1797 1889 2623 2701 2902# 



2030 



2193 



ISIS-II ASSEMBLER SYMBOL CROSS REFERENCE, V2.1 PAGE 9 

X6 1756# 1766 

XTBL 908# 931 932 933 934 935 936 937 938 2293 

Z 1105 1793# 

CROSS REFERENCE COMPLETE 



ISIS-II 8080/8085 MACRO ASSEMBLER, V2.0 
INTELLEC SERIES II IPB DIAGNOSTIC 



MODULE PAGE 



LOC OBJ 


SEQ 




SOURCE STATEMENT 




1 
2 
3 


$ 


TITLE 


('INTELLEC SERIES 




4 
5 
6 
7 


} 


EQUATES 






8 
9 


t 


CHECKSUM DEFINITIONS 




10 








F800 


11 


MONORG 


EQU 


0F800H 


0800 


12 


MONLEN 


EQU 


0800H 


001E 


13 
14 


MONCHK 


EQU 


01EH 


E800 


15 


BOOORG 


EQU 


0E800H 


0800 


16 


BOOLEN 


EQU 


0800H 


0055 


17 


BOOCHK 


EQU 


055H ; 


00A3 


18 
19 


BOOSUM 


EQU 


0A3H ; 




20 


r 


GENERAL 


DEFINITIONS 




21 








000D 


22 


CR 


EQU 


0DH 


000A 


23 


LF 


EQU 


0AH ; 


0038 


24 
25 


INT7V 


EQU 


038H 




26 


/ 


PIC DEFINITIONS 




27 








00FC 


28 


SPICMR 


EQU 


0FCH 


00FA 


29 


IPICMR 


EQU 


0FAH 


00FD 


30 


SPICCR 


EQU 


0FDH 


00FB 


31 


IPICCR 


EQU 


0FBH 


0020 


32 


EOI 


EQU 


20H 


000C 


33 
34 


POLL 


EQU 


0CH 




35 


t 


IOC AND 


PIO COMMAND DEFFI 




36 








0008 


37 


CSMEM 


EQU 


01000B 


0007 


38 


DECHO 


EQU 


00111B ; 


0006 


39 


SRQ 


EQU 


00110B 


0005 


40 


SRQACK 


EQU 


00101B 


0009 


41 
42 


TRAM 


EQU 


01001B ; 




43 


/ 


THINGS 


ALREADY DEFINED IK 




44 








0001 


45 


OBF 


EQU 


00000001B ; 


0002 


46 


IBF 


EQU 


00000010B 


0004 


47 
48 


F0 


EQU 


00000100B 


00C0 


49 


lOCI 


EQU 


0C0H ; 


00C0 


50 


lOCO 


EQU 


0C0H 


00C1 


51 


IOCS 


EQU 


0C1H ; 


00C1 


52 


lOCC 


EQU 


0C1H ; 



MONITOR ROM ORIGIN 
MONITOR ROM LENGTH 
MONITOR ROM CHECKSUM 

BOOT ROM ORIGIN 

BOOT ROM LENGTH 

BOOT ROM CHECKSUM 

BOOT ROM CHECKSUM BYTE CONTENTS (TO MAKE 55H) 



CARRIAGE RETURN CHARACTER 
LINE FEED CHARACTER 
INTERRUPT 7 VECTOR LOCATION 



SYSTEM PIC MASK REGISTER 
10 PIC MASK REGISTER 
SYSTEM PIC COMMAND REGISTER 
10 PIC COMMAND REGISTER 
END OF INTERRUPT COMMAND 
POLL COMMAND 



CHECKSUM MEMORY COMMAND 
DATA ECHO COMMAND 
GENERATE INTERRUPT COMMAND 
INTERRUPT ACKNOWLEDGE COMMAND 
TEST RAM COMMAND 



SLAVE OUTPUT BUFFER IS FULL 

SLAVE INPUT BUFFER IS FULL 

FLAG - SAVE BUSY, MASTER LOCKED OUT 

IOC INPUT DATA (FROM DBB) PORT 
IOC OUTPUT DATA (TO DBB) PORT 
IOC STATUS PORT 
IOC COMMAND PORT 



ISIS-II 8080/8085 MACRO ASSEMBLER, V2.0 
INTELLEC SERIES II IPB DIAGNOSTIC 



MODULE 



PAGE 



LOC OBJ 



SEQ 



SOURCE STATEMENT 



00F8 
00F8 
00F9 
00F9 

0020 
0040 
0080 

F809 
F81B 



0010 



0011 



EB00 

EB00 C324EB 

EB03 C306EB 



53 






54 PIOI 


EQU 


0F8H 


55 PIOO 


EQU 


0F8H 


56 PIOS 


EQU 


0F9H 


57 PIOC 


EQU 


0F9H 


58 






59 INT5 


EQU 


00100000B 


60 INT6 


EQU 


01000000B 


61 INT7 


EQU 


10000000B 


62 






63 CO 


EQU 


0F809H 


64 MEMCHK 


EQU 


0F81BH 


65 






66 






67 






68 






69 ; 


GLOBALS 


70 






71 






72 FFLAG 


EQU 


010H 


73 






74 






75 TOFLAG 


EQU 


011H 


76 






77 






78 






79 






80 






81 






82 ; 


ENTRY 


POINTS 


83 






84 






85 


ORG 


0EB00H 


86 


JMP 


MIMODE 


87 


JMP 


BIMODE 


88 






89 $ 


EJECT 





;PIO INPUT DATA (FROM DBB) PORT 

•PIO OUTPUT DATA (TO DBB) PORT 

;PIO STATUS PORT 

;PIO COMMAND PORT 

INTERRUPT LEVEL 5 
INTERRUPT LEVEL 6 
INTERRUPT LEVEL 7 

;C0 MONITOR FUNCTION 

; MEMCHK MONITOR FUNCTION 



MAJOR TEST FAILURE FLAG 
= NO FAILURES IN TEST 
0FFH = TEST HAS FAILED 

TIMEOUT FLAG 

= NO TIMEOUT 

0FFH = TIMEOUT HAS OCCURRED 



BEGINNING OF DIAGNOSTIC 
MONITOR'S ENTRY POINT 
BOOT ENTRY POINT 



ISIS-II 8080/8085 MACRO ASSEMBLER, V2.0 
INTELLEC SERIES II IPB DIAGNOSTIC 



MODULE PAGE 



LOC 


OBJ 


SEQ 


SOURCE 


STATEMENT 






90 ;;; 


BIMODE - BOOT IN^ 






91 










92 






EB06 


CD71ED 


93 BIMODEs 


CALL 


INIT 


EB09 


CD67EB 


94 
95 


CALL 


CHKSUM 


EB0C 


0E55 


96 


MVI 


C,55H 


EB0E 


CDE6EB 


97 


CALL 


lOCDRA 


EBll 


211100 


98 


LXI 


H, TOP LAG 


EB14 


B6 


99 


ORA 


M 


EB15 


CC9PEB 


100 


CZ 


lOCTST 


ES18 


3E00 


101 


MVI 


A,0 


EBIA 


321100 


102 
103 


STA 


TOFLAG 


EBID 


CD2DEC 


104 
105 


CALL 


PIOTST 


EB20 


CDA8ED 


106 


CALL 


RESTOR 


EB23 


C9 


107 
108 
109 
110 
111 


RET 








112 ;;; 


MIMODE - MONITOR 






113 










114 






EB24 


CD71ED 


115 MIMODE, 


CALL 


INIT 


EB27 


014CEE 


116 


LXI 


B,SIGNON 


EB2A 


CD9EED 


117 
118 


CALL 


PRINTL 






119 ; 


CHECKSUM ROMS 






120 






EB2D 


0180EE 


121 


LXI 


B,MIM1 


EB30 


CDBFED 


122 


CALL 


SETUP 


EB33 


CD67EB 


123 


CALL 


CHKSUM 


EB36 


CD5AED 


124 
125 


CALL 


FINISH 






126 ; 


TEST 


IOC 






127 






EB39 


018AEE 


128 


LXI 


B,MIM2 


EB3C 


CDBFED 


129 


CALL 


SETUP 


EB3F 


CD9FEB 


130 


CALL 


lOCTST 


EB42 


CD5AED 


131 
132 


CALL 


FINISH 






133 ; 


TEST 


PIO 






134 






EB45 


018EEE 


135 


LXI 


B,MIM3 


EB48 


CDBFED 


136 


CALL 


SETUP 


EB4B 


CD2DEC 


137 


CALL 


PIOTST 


EB4E 


CD5AED 


138 
139 


CALL 


FINISH 






140 ; 


TEST 


RAM 






141 






EB51 


0192EE 


142 


LXI 


B,MIM4 


EB54 


CDBFED 


143 


CALL 


SETUP 


EB57 


CDBBEC 


144 


CALL 


RAMTST 



;SAVE ENVIRONMENT 
/CHECKSUM ROMS 

; CHECK FOR IOC PRESENCE 

;TEST TIME OUT FLAG 

;AND RESULT FLAG 

J RUN THE IOC TEST IP IOC PRESENT 

; RESET TIMEOUT FLAG 



;RUN THE PIO TEST 

; RESTORE THE ENVIRONMENT 
; RETURN TO THE BOOT 



;SAVE ENVIRONMENT 

; PRINT SIGN ON MESSAGE 



'CHECKSUM TEST' MESSAGE 

PRINT MESSAGE AND INITIALIZE FFLAG 

CHECKSUM ROMS 

CHECK FFLAG 



'IOC TEST' MESSAGE 

PRINT MESSAGE AND INITIALIZE FFLAG 

TEST IOC 

CHECK FFLAG 



; 'PIO TEST' MESSAGE 

; PRINT MESSAGE AND INITIALIZE FFLAG 

;TEST PIO 

; CHECK FFLAG 



; 'RAM TEST' MESSAGE 

; PRINT MESSAGE AND INITIALIZE FFLAG 

;TEST RAM 



ISIS-II 8080/8085 MACRO ASSEMBLER, V2.0 
INTELLEC SERIES II IPB DIAGNOSTIC 



MODULE 



PAGE 



LOC 


OBJ 


SEQ 




SOURCE 


STATEMENT 


EB5A 


CD5AED 


145 
146 




CALL 


FINISH 






147 


t 


RETURN 


TO MONITOR 






148 








EB5D 


0171EE 


149 




LXI 


B,SGNOFP 


EB60 


CD9EED 


150 




CALL 


PRINTL 


EB63 


CDA8ED 


151 




CALL 


RESTOR 


EB66 


C9 


152 
153 
154 




RET 








155 


$ 


TITLE 


CCHKSUM ■ 






156 


$ 


EJECT 





;CHECK FFLAG 



;SIGNOFF MESSAGE 

; RESTORE ENVIRONMENT 
; RETURN TO MONITOR 



ISIS-II 8080/8085 MACRO ASSEMBLER, V2.0 
CHKSUM - CHECKSUM TEST 



MODULE 



PAGE 



LOG OBJ 



EB67 2100F8 
EB6A 110008 
EB6D 3E1E 
EB6F CD8AEB 
EB72 0196EE 
EB75 CDDBED 

EB78 2100E8 
EB7B 110008 
EB7E 3E55 
EB80 CD8AEB 
EB83 01A7EE 
EB86 CDDBED 
EB89 C9 



EB8A 2F 
EB8B 3C 

EB8C 47 
EB8D 7B 
EB8E B2 
EB8F CA99EB 
EB92 78 
EB93 86 
EB94 23 
EB95 IB 
EB96 C38CEB 

EB99 78 
EB9A B7 
EB9B C8 

EB9C 3EFF 
EB9E C9 



SEQ 

157 ;;; 

158 

159 

160 CHKSUM: 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 SUM: 

192 

193 

194 SUMl: 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 SUM2; 

205 

206 

207 

208 

209 

210 

211 



SOURCE STATEMENT 
CHKSUM - CHECKSUM ROMS 



LXI 

LXI 

MVI 

CALL 

LXI 

CALL 

LXI 

LXI 

MVI 

CALL 

LXI 

CALL 

RET 



H,MONORG 

D,MONLEN 

A,MONCHK 

SUM 

B,CHKM1 

TEST 

H,BOOORG 

D,BOOLEN 

A,BOOCHK 

SUM 

B,CHKM2 

TEST 



;SET UP TO CHECKSUM MONITOR 



; CHECKSUM MONITOR 

; 'MONITOR CHECKSUM' MESSAGE 



;SET UP TO CHECKSUM BOOT 



; CHECKSUM BOOT 

;'BOOT CHECKSUM' MESSAGE 



SUM - CHECKSUM MEMORY 

PARAMETERS: 

HL = ORIGIN OF ROM TO BE CHECKSUMMED 

DE = LENGTH OF ROM 

A = EXPECTED CHECKSUM 

RETURNS: 

A = SUCCESS FLAG 

= CHECKSUM OK 

OFFH = CHECKSUM FAILED 



CMA 
INR 

MOV 

MOV 

ORA 

JZ 

MOV 

ADD 

INX 

DCX 

JMP 

MOV 
ORA 
RZ 

MVI 
RET 



B,A 

A,E 

D 

SUM2 

A,B 

M 

H 

D 

SUMl 

A,B 
A 



A,0FFH 



;TAKE TWO'S COMPLEMENT OP EXPECTED CHECKSUM, SO 
;WHEN ADDED TO CHECKSUM THE TOTAL WILL BE ZERO 

;SAVE SUM DURING TEST 
;TEST FOR NONE LEFT 

IF NONE LEFT 
PUT COUNT BACK 
ACCUMULATE SUM 
STEP TO NEXT WORD 
DECREMENT COUNT 
LOOP 

GET SUM 

TEST FOR ZERO SUM 

IF ZERO, RETURN SUCCESS 

; RETURN FAILURE 



ISIS-II 8080/8085 MACRO ASSEMBLER, V2 . MODULE PAGE 
CHKSUM - CHECKSUM TEST 

LOC OBJ SEQ SOURCE STATEMENT 

212 $ TITLE CIOCTST - IOC TEST') 

213 $ EJECT 



ISIS-II 8080/8085 MACRO ASSEMBLER, V2.0 
lOCTST - IOC TEST 



MODULE PAGE 



LOG OBJ 



EB9F- 


0E55 


EBAl 


CDE6EB 


EBA4 


211100 


EBA7 


B6 


EBA8 


CAB2EB 


EBAB 


01B5EE 


EBAE 


CDDBED 


EBBl 


C9 


EBB2 


0608 


EBB4 


CDF7EB 


EBB7 


01D2EE 


BBBA 


CDDBED 


EBBD 


0609 


EBBF 


CDF7EB 


EBC2 


01DFEE 


EBC5 


CDDBED 


EBC8 


0EBF 


EBCA 


CD40EE 


EBCD 


0606 


EBCF 


CDFEEB 


EBD2 


CD13EE 


EBD5 


F5 


EBD6 


0605 


EBD8 


CDFEEB 


EBDB 


CD2EEE 


E6DE 


Fl 


EBDF 


01E7EE 


EBE2 


CDDBED 


EBE5 


C9 



SEQ 

214 ;;; 

215 

216 

217 lOCTST: 

218 

219 ; 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 ; 

231 

232 lOCl: 

233 

234 

235 

236 

237 ; 

238 

239 

240 

241 

242 

243 

244 ; 

245 

246 

247 

248 

249 

250 

251 

252 

25a 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 



SOURCE STATEMENT 



lOCTST - IOC TEST 



ECHO TEST 



MVI 

CALL 

LXI 

ORA 

JZ 

LXI 

CALL 

RET 



C,55H 

lOCDRA 

H,TOFLAG 

M 

lOCl 

B,I0CM1 

TEST 



IOC CHECKSUM TEST 



MVI 
CALL 
LXI 
CALL 



B,CSMEM 
lOCDRB 
B,I0CM2 
TEST 



IOC RAM TEST 



MVI 
CALL 
LXI 
CALL 



B,TRAM 
lOCDRB 
B,I0CM3 
TEST 



IOC INTERRUPT TEST 



MVI 

CALL 

MVI 

CALL 

CALL 

PUSH 

MVI 

CALL 

CALL 



C,NOT INT6 

SETINT 

B,SRQ 

lOCDRC 

CHKINT 

PSW 

B , SRQACK 

lOCDRC 

RESET 



POP PSW 

LXI B,I0CM4 

CALL TEST 
RET 



;TRY TO ECHO A 55H 

;TEST THE RESULT AND TIME-OUT FLAGS 

;JUMP IF OK 

; FAILURE MESSAGE 

•DO NOT DO OTHER TESTS IF NOT PRESENT 



; CHECKSUM COMMAND 



;TEST RAM COMMAND 



; SET-UP MASKS 

;TUftN ON IOC INTERRUPT 

; CHECK INTERRUPTS 

;SAVE RESULT 

; RESET IOC INTERRUPT 

; RESTORE INTERRRUPTS TO NORMAL 

;GET RESULT FLAG 
;LOAD MESSAGE POINTER 



lOCDRA - ECHO TEST DRIVER 

lOCDRA RUNS AN ECHO TEST WITH THE VALUE SUPPLIED, AND RETURNS THE 
SUCCESS FLAG IN A. 



ISIS-II 8080/8085 MACRO ASSEMBLER, V2 . 
lOCTST - IOC TEST 



MODULE 



PAGE 



LOC 


OBJ 


SEQ 


SOURCE STATEMENT 






269 


PARAMETER: 






270 


C = DATA TO BE ECHOED 






271 








272 


RETURNS : 






273 


A = SUCCESS FLAG 






274 


= PASSED 






275 


0FFH - FAILED 






276 








277 


CALLS : 






278 


lOCCOD 






279 , 


lOCDID 






280 


lOCDOD 






281 








282 




EBE6 


0607 


283 lOCDRA: MVI B,DECHO 


EBE8 


CDFEEB 


284 


CALL lOCCOD 


EBEB 


CD0FEC 


285 


CALL lOCDOD 


EBEE 


CD07EC 


286 


CALL lOCDID 


EBFl 


2F 


287 


CMA 


EBF2 


91 


288 


SUB C 


EBF3 


C8 


289 


RZ 


EBF4 


3EFF 


290 


MVI A,0FFH 


EBF6 


C9 


291 
292 
293 
294 
295 


RET 






296 


lOCDRB - ISSUE COMMAND A 






297 








298 


PARAMETER: 






299 


B = COMMAND 






300 








301 


RETURNS: 






302 


A = DATA 






303 








304 


CALLS: 






305 


lOCCOD 






306 


lOCDID 






307 








308 




EBF7 


CDFEEB 


309 ] 


[OCDRB: CALL lOCCOD 


EBFA 


CD07EC 


310 


CALL lOCDID 


EBFD 


C9 


311 
312 
313 
314 
315 


RET 






316 


■;; lOCDRC - ISSUE COMMAND 






317 








318 


PARAMETER: 






319 


B = COMMAND 






320 








321 


CALLS: 






322 


lOCCOD 






323 





;PUT OUT DATA ECHO COMMAND 



;READ BACK DATA 

; RETURNS COMPLEMENT 

; CHECK IF ECHO EQUALS ORIGINAL 

; RETURN IF OK 

; OTHERWISE, RETURN FAILURE 



;PUT OUT COMMAND 
;READ DATA 



ISIS-II 8080/8085 MACRO ASSEMBLER, V2.0 
lOCTST - IOC TEST 



MODULE 



PAGE 



LOC OBJ 



SEQ 



SOURCE STATEMENT 



EBFE 1E00 
EC00 CD18EC 
EC03 78 
EC04 D3C1 
EC06 C9 



EBFE 



EC07 1E01 
EC09 CD18EC 
EC0C DBC0 
EC0E C9 



EC0F 1E00 
ECU CD18EC 
EC14 79 
EC15 D3C0 
EC17 C9 



324 ;IOCDRC EQU 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 lOCCOD: 

338 

339 

340 

341 

342 

343 

344 lOCDRC 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 lOCDID: 

357 

358 

359 

360 

361 

362 

363 

364 



lOCCOD 



;THIS IS JUST THE COMMAND OUT DRIVER 
;NOTE: ACTUAL DEFINITION FOLLOWS lOCCOD 



lOCCOD - IOC COMMAND OUT DRIVER 

PARAMETER : 

B = COMMAND 



MODIFIES A,B,E,HL 



MVI 

CALL 

MOV 

OUT 

RET 



EQU 



E,0 
lOCWT 
A,B 
lOCC 



lOCCOD 



;TEST FOR ZERO STATUS 

;WAIT FOR STATUS OR TIMEOUT 

; OUTPUT COMMAND 



; DEFINITION HERE DUE TO FORWARD REFERENCE 



lOCDID - IOC DATA IN DRIVER 

RETURNS: 

A = DATA 



MODIFIES A,E,HL 

MVI E,OBF 

CALL lOCWT 

IN lOCI 
RET 



;TEST FOR OBF STATUS 
;READ DATA 



365 

366 

367 

368 

369 

370 

371 lOCDOD: 

372 

373 

374 

375 

376 

377 

378 



lOCDOD - IOC DATA OUT DRIVER 

PARAMETER: 
C = DATA 



MODIFIES A,E,HL 



MVI 

CALL 

MOV 

OUT 

RET 



E,0 
lOCWT 
A,C 
lOCO 



;TEST FOR ZERO STATUS 
;WAIT FOR READY STATUS 
; WRITE DATA 



ISIS-II 8080/8085 MACRO ASSEMBLER, V2.0 
lOCTST - IOC TEST 



MODULE 



PAGE 



LOC OBJ 



SEQ 



SOURCE STATEMENT 



EC18 


210010 


ECIB 


DBCl 


ECID 


E607 


ECIF 


AB 


EC20 


C8 


EC21 


2B 


EC22 


7D 


EC23 


B4 


EC24 


C21BEC 


EC27 


3EFF 


EC29 


321100 


EC2C 


C9 



379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 

391 lOCWT: 

392 lOCWTli 
393 

394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 

407 $ 

408 $ 



lOCWT - IOC WAIT 

lOCWT WILL WAIT FOR THE IOC STATUS TO BE EQUAL TO REG. E, 
OR TO TIMEOUT 

PARAMETERS: 

E = STATUS DESIRED 

RETURNS: 

TOFLAG UPDATED TO 0FFH IF TIMEOUT HAS OCCURED 



LXI 

IN 

AN I 

XRA 

RZ 

DCX 

MOV 

ORA 

JNZ 

MVI 

STA 

RET 



TITLE 
EJECT 



H,01000H 

IOCS 

F0 OR IBF 

E 

H 

A,L 

H 

lOCWTl 

A,0FFH 

TOFLAG 



OR OBF 



;WAIT COUNT 
; CHECK STATUS 

; CHECK FOR DESIRED STATUS 
; RETURN IF OK 
; DECREMENT TIMEOUT 
;TEST FOR TIMED OUT 

;IF NOT TIMED OUT 

; UPDATE TOFLAG TO FAILURE STATUS 

; RETURN 



('PIOTST - PIO TEST') 



ISIS-II 8080/8085 MACRO ASSEMBLER, V2.0 
PIOTST - PIO TEST 



MODULE 



PAGE 11 



LOG OBJ 



EC2D 


0E55 


EC2F 


CD74EC 


EC32 


211100 


EC35 


B6 


EC36 


CA40EC 


EC39 


01F6EE 


EC3C 


CDDBED 


EC3F 


C9 


EC40 


0608 


EC42 


CD85EC 


EC45 


0109EF 


EC48 


CDDBED 


EC4B 


0609 


EC4D 


CD85EC 


EC50 


0116EF 


EC53 


CDDBED 


EC56 


0EDP 


EC58 


CD40EE 


EC5B 


0606 


EC5D 


CD8CEC 


EC60 


CD13EE 


EC63 


F5 


EC64 


0605 


EC66 


CD8CEC 


EC69 


CD2EEE 


EC6C 


Fl 


EC6D 


011EEF 


EC70 


CDDBED 


EC73 


C9 



SEQ 



SOURCE STATEMENT 



409 


• ; ; PIOTST 


- PIO TEST 


410 






411 






412 PIOTST: 




413 






414 


f ECHO TEST 


415 






416 


MVI 


C,55H 


417 


CALL 


PIODRA 


418 


LXI 


H,TOPLAG 


419 


ORA 


M 


420 


JZ 


PIOl 


421 


LXI 


B,PI0M1 


422 


CALL 


TEST 


423 


RET 




424 






425 


} PIO CHECKSUM TEST 


426 






427 PIOl: MVI 


B,CSMEM 


428 


CALL 


PIODRB 


429 


LXI 


B,PI0M2 


430 


CALL 


TEST 


431 






432 


PIO RAM 


TEST 


433 






434 


MVI 


B,TRAM 


435 


CALL 


PIODRB 


436 


LXI 


B,PI0M3 


437 


CALL 


TEST 


438 






439 


PIO INTERRUPT TEST 


440 






441 


MVI 


C,NOT INT5 


442 


CALL 


SETINT 


443 


MVI 


B,SRQ 


444 


CALL 


PIODRC 


445 


.CALL 


CHKINT 


446 


PUSH 


PSW 


447 


MVI 


B,SRQACK 


448 


CALL 


PIODRC 


449 


CALL 


RESET 


450 






451 


POP 


PSW 


452 


LXI 


B,PI0M4 


453 


CALL 


TEST 


454 






455 


RET 




456 






457 






458 






459 






460 


PIODRA 


- ECHO TEST 


461 






462 


PIODRA RUNS AN 


463 


SUCCESS 


FLAG IN A. 



;TRy TO ECHO A 55H 

;TEST TIME-OUT AND RESULT FLAGS 

;IF RESULT OK 
/FAILURE MESSAGE 

;D0 NOT DO OTHER TESTS IF NOT PRESENT 



; CHECKSUM COMMAND 



;TEST RAM COMMAND 



;SET UP MASKS 

;TURN ON PIO INTERRUPT 

; CHECK INTERRUPTS 
;SAVE RESULT FLAG 
; RESET PIO INTERRUPT 

/RESTORE INTERRRUPTS TO NORMAL 

;GET RESULT FLAG 
;LOAD MESSAGE POINTER 



PIODRA RUNS AN ECHO TEST WITH THE VALUE SUPPLIED, AND RETURNS THE 
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LOG 


OBJ 


SEQ 
464 


SOURCE STATEMENT 






465 


PARAMETER: 






466 


C = DATA TO BE ECHOED 






467 








468 


RETURNS: 






469 


A = SUCCESS FLAG 






470 


= PASSED 






471 


0FFH - FAILED 






472 








473 


CALLS: 






474 


PIOCOD 






475 


PIODID 






476 


PIODOD 






477 








478 




EC74 


0607 


479 PIODRA: MVI B,DECHO 


EC76 


CDBCEC 


480 


CALL PIOCOD 


EC79 


CD9DEC 


481 


CALL PIODOD 


EC7C 


CD95EC 


482 


CALL PIODID 


EC7F 


2F 


483 


CMA 


EC80 


91 


484 


SUB C 


EC81 


C8 


485 


RZ 


EC82 


3EFF 


486 


MVI A,0FFH 


EC84 


C9 


487 
488 
489 
490 
491 


RET 






492 


PIODRB - ISSUE COMMAND A 






493 








494 


PARAMETER: 






495 


B = COMMAND 






496 








497 


RETURNS: 






498 


A = DATA 






499 








500 


CALLS: 






501 


PIOCOD 






502 


PIODID 






503 








504 




EC85 


CD8CEC 


505 I 


'lODRB: CALL PIOCOD 


EC88 


CD95EC 


506 


CALL PIODID 


EC8B 


C9 


507 
508 
509 
510 
511 


RET 






512 


PIODRC - ISSUE COMMAND 






513 








514 


PARAMETER: 






515 


B = COMMAND 






516 








517 


CALLS: 






518 , 


PIOCOD 



;PUT OUT DATA ECHO COMMAND 



;READ BACK DATA 

;PIO RETURNS COMPLEMENTED DATA 

; CHECK IF ECHO EQUALS ORIGINAL 

; RETURN IF OK 

; OTHERWISE, RETURN FAILURE 



;PUT OUT COMMAND 
;READ DATA 
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LOC OBJ 



SEQ 






EC8C 1E00 
EC8E CDA6EC 
EC91 78 
EC92 D3F9 
EC94 C9 



EC8C 



EC95 1E01 
EC97 CDA6EC 
EC9A DBFS 
EC9C C9 



EC9D 1E00 
EC9F CDA6EC 
ECA2 79 
ECA3 D3F8 
ECA5 C9 



519 

520 ;PIODRC EQU 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 PIOCOD 

534 

535 

536 

537 

538 

539 

540 PIODRC 

541 

542 

543 

544 

545 



PIOCOD 



;THIS IS JUST THE COMMAND OUT DRIVER 
; ACTUAL DEFINITION FOLLOWS PIOCOD 



PIOCOD - PIO COMMAND OUT DRIVER 

PARAMETER: 

B = COMMAND 



MODIFIES A,B,E,HL 



MVI 

CALL 

MOV 

OUT 

RET 



EQU 



E,0 
PIOWT 
A,B 
PIOC 



PIOCOD 



WAIT FOR STATUS 
CALL WAIT ROUTINE 
OUTPUT COMMAND 



; DEFINITION HERE DUE TO FORWARD REFERENCE 



546 

547 

548 

549 

550 

551 

552 PIODID: 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 PIODOD: 

568 

569 

570 

571 

572 

573 



PIODID - PIO DATA IN DRIVER 



RETURNS: 

A = DATA 

MODIFIES A,E,HL 

MVI E,OBF 

CALL PIOWT 

IN PIOI 
RET 



;WAIT FOR OBF STATUS 

;WAIT 

;READ DATA 



PIODOD - PIO DATA OUT DRIVER 

PARAMETER: 
C = DATA 



MODIFIES A,E,HL 

MVI E,0 

CALL PIOWT 

MOV A,C 

OUT PIOO 
RET 



;WAIT FOR STATUS 
; WRITE DATA 
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LOG OBJ 



ECA6 
ECA9 
ECAB 
ECAD 
ECAE 
ECAF 
ECB0 
ECBl 
ECB2 
ECB5 
ECB7 
ECBA 



210010 

DBF9 

E607 

AB 

C8 

2B 

7D 

B4 

C2A9EC 

3EFF 

321100 

C9 



SEQ 

574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 

589 PIOWT: 

590 PIOWTl: 
591 

592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 

605 $ 

606 $ 



SOURCE STATEMENT 



PIOWT - PIO WAIT 

PIOWT WAITS FOR THE PIO STATUS TO BE EQUAL TO E, OR A TIMEOUT. 

PARAMETER: 

E = STATUS TO WAIT FOR 

RETURNS: 

TOFLAG UPDATED TO 0FFH IF A TIMEOUT OCCURS 

MODIFIES: 

TOFLAG, HL 



LXI 

IN 

AN I 

XRA 

RZ 

DCX 

MOV 

ORA 

JNZ 

MVI 

STA 

RET 



TITLE 
EJECT 



H,01000H ;WAIT COUNT 

PI OS ; CHECK STATUS 

F0 OR IBF OR OBF 

E ; CHECK IP EQUAL TO DESIRED 

;IF OK 
H ; DECREMENT TIMER 

A,L ;TEST FOR TIMED OUT 

H 

PIOWTl ;IP NOT TIMED OUT 

A,0FFH ; TIMED OUT; UPDATE TOFLAG 

TOFLAG 



('RAMTST - RAM TEST') 
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LOC OBJ 



ECBB 


211200 


ECBE 


11FFE7 


ECCl 


CD2DED 


ECC4 


2100F0 


ECC7 


11FFF7 


ECCA 


CD2DED 


ECCD 


211200 


ECD0 


11FF7F 


ECD3 


CD08ED 


ECD6 


012DEF 


ECD9 


CDDBED 


ECDC 


210080 


ECDF 


IIPFBF 


ECE2 


CD08ED 


ECE5 


013CEP 


ECE8 


CDDBED 


ECEB 


2100C0 


ECEE 


11FFE7 


ECFl 


CD08ED 


ECF4 


B7 


ECF5 


C201ED 


ECF8 


2100F0 


ECFB 


11FFF7 


ECFE 


CD08ED 


ED01 


014CEF 


ED04 


CDDBED 


ED07 


C9 



SEQ 

607 ;;; 

608 

609 

610 RAMTST: 

611 

612 

613 

614 

615 

616 

617 ; 

618 

619 

620 

621 

622 

623 

624 

625 ; 

626 

627 

628 

629 

630 

631 

632 

633 ; 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 RAMI: 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 



SOURCE STATEMENT 
RAMTST - TAM TEST 



LXI 

LXI 

CALL 

LXI 

LXI 

CALL 



H,012H 

D,0E7FFH 

FILL 

H,0F000H 

D,0F7FFH 

FILL 



TEST BANK 0-32K 



LXI 

LXI 

CALL 

LXI 

CALL 



H,012H 

D,07FFFH 

CHECK 

B^RAMMl 

TEST 



TEST BANK 32-48K 



LXI 

LXI 

CALL 

LXI 

CALL 



H,08000H 

D,0BFFFH 

CHECK 

B,RAMM2 

TEST 



TEST BANK 48-62K 



LXI 

LXI 

CALL 

ORA 

JNZ 

LXI 

LXI 

CALL 

LXI 

CALL 

RET 



H,0C000H 

D,0E7FFH 

CHECK 

A 

RAMI 

H,0F000H 

D,0F7FFH 

CHECK 

B,RAMM3 

TEST 



; FIRST WORD TO FILL 
/BOTTOM OF BOOT ROM 

;TOP OF BOOT/DIAGNOSTIC ROM 
; BOTTOM OF MONITOR ROM 



; FIRST WORD TO TEST 
;LAST WORD TO TEST 

;'BANK 0-23K FAILURE' MESSAGE 



; FIRST WORD TO TEST 
;LAST WORD TO TEST 

;'BANK 32-48K FAILURE' MESSAGE 



; FIRST WORD TO TEST 

; BOTTOM OF BOOT/DIAGNOSTIC ROM 

TEST FOR FAILURE 

IF A FAILURE 

TOP OF BOOT/DIAGNOSTIC ROM 

BOTTOM OF MONITOR ROM 

;'BANK 48-62K FAILURE' MESSAGE 



CHECK - CHECK SECTION OF MEMORY 

PARAMETERS: 

DC = FIRST WORD ADDRESS OF BLOCK TO TEST 
HL = LAST WORD ADDRESS OF BLOCK TO TEST 

RETURNS: 

A = IF TEST SUCCESSFUL 
A = 0FFH AT FIRST FAILURE 

CALLS: 
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LOG OBJ 



ED08 GD3BED 

ED0B 7A 
ED0G B3 
ED0D GA27ED 

ED10 7G 
EDll AD 
ED12 BE 
ED13 G22AED 

ED16 2F 
ED17 77 
ED18 BE 
ED19 G22AED 

EDIG 2F 
EDID 77 
EDIE BE 
EDIF G22AED 

ED22 23 
ED23 IB 
ED24 C30BED 

ED27 3E00 
ED29 C9 

ED2A 3EFF 
ED2C C9 



ED2D CD3BED 

ED30 7A 
ED31 B3 



SEQ 

662 ; 

663 

664 

665 GHEGK: 

666 

667 GHECKl; 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 GHECK2: 

691 

692 

693 CHEGK3: 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 FILL: 

714 

715 FILLl: 

716 



SOURGE STATEMENT 



SETLIM 



GALL 

MOV 
ORA 
JZ 

MOV 
XRA 
GMP 
JNZ 

CMA 
MOV 
GMP 
JNZ 

GMA 
MOV 
GMP 
JNZ 

INX 
DCX 
JMP 

MVI 
RET 

MVI 
RET 



SETLIM 

A,D 

E 

GHECK2 

A,H 

L 

M 

GHEGK3 



M,A 

M 

GHEGK3 



M,A 

M 
GHEGK3 

H 
D 
GHEGKl 



A,0 



A,0FFH 



;SET UP LIMITS TO TAKE MEMGHK INTO AGCOUNT 

; GHEGK IF ALREADY DONE 

;IF ALREADY DONE 

; GENERATE PATTERN 

; GHEGK IF PATTERN STILL IN MEMORY 

; STORE AND VERIFY COMPLEMENT 
;VERIFY 0FFH IS THERE 

;PUT PATTERN BAGK 
; VERIFY PATTERN 



; ADVANCE ADDRESS 
; DECREMENT COUNT 
; LOOP 

/RETURN SUCCESS 



; RETURN FAILURE 



FILL - FILL MEMORY WITH BACKGROUND, TAKING MEMGHK INTO AGCOUNT. 

FILL WILL PUT BACKGROUND INTO MEMORY STARTING AT FIRST WORD ADDRESS 
AND ENDING AT MEMGHK OR LAST MEMORY ADDRESS, WHICHEVER IS ENCOUNTERED 
FIRST 

PARAMETERS: 

HL = FIRST WORD ADDRESS 
DE = LAST WORD ADDRESS 

GALLS: 

SETLIM 



CALL SETLIM 



MOV 
ORA 



A,D 
E 



; CHECK IF GOUNT=0 
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LOG OBJ 

ED32 C8 
ED33 7C 
ED34 AD 
ED35 77 
ED36 23 
ED37 IB 
ED38 C330ED 



ED3B E5 
ED3C D5 

ED3D CD1BF8 
ED40 4F 

ED41 Dl 
ED42 El 

ED43 95 
ED44 78 
ED45 9C 
ED46 DA52ED 

ED49 7B 
ED4A 91 
ED4B 7A 
ED4C 98 
ED4D DA52ED 

ED50 50 
ED51 59 

ED52 7B 



SEQ 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 SETLIM: 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 SETLMl: 



SOURCE STATEMENT 



RZ 

MOV 

XRA 

MOV 

INX 

DCX 

JMP 



A,H 

L 

M,A 

H 

D 

FILLl 



; GENERATE PATTERN 

STORE PATTERN 

INCREMENT POINTER TO NEXT LOCATION 

DECREMENT COUNTER 

LOOP 



SETLIM - SET LIMITS 

SETLIM PERFORMS THE PLM FUNCTION: 

IF FWA <= MEMCHK AND MEMCHK <= LWA 
THEM COUNT = MEMCHK - FWA + 1; 
ELSE COUNT = LWA - FWA + 1; 

PARAMETERS: 

HL = FIRST WORD ADDRESS (FWA) 
DE = LAST WORD ADDRESS (LWA) 

RETURNS: 

HL = FIRST WORD ADDRESS 
DE = COUNT 

CALLS: 

MEMCHK 



PUSH 
PUSH 

CALL 
MOV 

POP 
POP 

SUB 
MOV 
SBB 
JC 

MOV 
SUB 
MOV 
SBB 
JC 

MOV 
MOV 

MOV 



H 

D 

MEMCHK 
C,A 

D 
H 

L 

A,B 
H 
SETLMl 

A,E 

C 

A,D 

B 

SETLMl 

D,B 
E,C 

A,E 



;SAVE HL AND DE DURING CALL TO MEMCHK 

;BC=MEMCHK 

; RESTORE HL AND DE 

; SUBTRACT FWA FROM MEMCHK 

;JUMP IF MEMCHK < FWA 

; SUBTRACT MEMCHK FROM LWA 

;JUMP IF LWA < MEMCHK 

;MEMCHK IS WITHIN RANGE; USE IT AS LWA 

/SUBTRACT FWA FROM MEMCHK OR LWA, 
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SEQ 



SOURCE STATEMENT 



ED53 95 


772 




SUB 


L 


ED54 5P 


773 




MOV 


E,A 


ED55 7A 


774 




MOV 


A,D 


ED56 9C 


775 




SBB 


H 


ED57 57 


776 
777 




MOV 


D,A 


ED58 13 


778 
779 




INX 


D 


ED59 C9 


780 
781 
782 




RET 






783 


$ 


TITLE 


CU' 




784 


$ 


EJECT 





AS THE CASE MAY BE 



;ADD 1 
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LOG OBJ 



ED5A 3A1000 
ED5D B7 
ED5E G0 
ED5F 0166ED 
ED62 CD9EED 
ED65 G9 



ED66 202D2D20 
ED6A 50415353 
ED6E 4544 
ED70 00 



ED71 


Dl 


ED72 


F5 


ED73 


2A3800 


ED76 


E5 


ED77 


2A3A00 


ED7A 


E5 


ED7B 


2A1000 


ED7E 


E5 


ED7F 


DBFA 


ED81 


47 


ED82 


DBFG 


ED84 


4F 


ED85 


G5 


ED86 


3E00 


ED88 


321000 


ED8B 


321100 


ED8E 


D5 


ED8F 


C9 



SEQ 

785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 



803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 



SOURGE STATEMENT 

FINISH - PRINT ' — PASSED' IF FFLAG 

ACCESSES: 
FFLAG 

GALLS: 
PRINT 



FINISH: LDA 
ORA 
RNZ 
LXI 
GALL 
RET 



FINA: 



INIT! 



DB 



FFLAG 
A 

B,FINA 
PRINTL 



• — PASSED' ,0 



•TEST FFLAG 

; RETURN IF TEST FAILED 

; PRINT ' — PASSED' MESSAGE 



INIT - SAVE INVIRONMENT ON STACK 

INIT SAVES THE INTERRUPT MASKS OF BOTH 8257 'S AND THE 
CONTENTS OF FFLAG. IT IS INTENDED TO BE USED WITH RESTOR, 
AND MUST BE CALLED AT THE SAME NEST LEVEL AS RESTOR 



SAVE RETURN SINCE STACK TO BE MODIFIED 

SAVE A AND FLAGS 

SAVE INTERRUPT 7 VECTOR 

SAVE REST OF VECTOR 

SAVE TOFLAG AND FFLAG 

READ 10 PIO MASK REGISTER 

READ SYSTEM PIO MASK REGISTER 



POP 


D 


PUSH 


PSW 


LHLD 


INT7V 


PUSH 


H 


LHLD 


INT7V+2 


PUSH 


H 


LHLD 


010H 


PUSH 


H 


IN 


IPICMR 


MOV 


B,A 


IN 


SPICMR 


MOV 


C,A 


PUSH 


B 


MVI 


A,0 


STA 


FFLAG 


STA 


TOFLAG 


PUSH 


D 


RET 





SAVE THE MASKS IN THE STACK 
INITIALIZE FFLAG AND TOFLAG 



; RETURN 



PRINT - PRINT STRING 
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LOG OBJ 



ED90 G5 

ED91 El 
ED92 4E 
ED93 79 
ED94 B7 
ED95 G8 
ED96 23 
ED97 E5 
ED98 GD09F8 
ED9B G391ED 



ED9E GD90ED 
EDAl 0149EE 
EDA4 CD90ED 
EDA7 G9 



EDA8 Dl 
EDA9 Gl 
EDAA 7 9 
EDAB D3FC 
EDAD 78 
EDAE D3FA 
EDB0 El 
EDBl 221000 
EDB4 El 
EDB5 223A00 
EDB8 El 
EDB9 223800 



SEQ 

837 

838 

839 

840 

841 

842 

843 

844 PRINT: 

845 

846 PRINTl; 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 PRINTL: 

869 

870 

871 

872 

873 

874 

875 

876 ;;; 

877 ; 
878 
879 

880 RESTOR: 

881 

882 

883 

884 

885 

886 

887 

888 

889 

890 

891 



SOURCE STATEMENT 

PARAMETER: 

BC = POINTER TO STRING TERMINATED WITH A NULL. 

GALLS: 
CO 



PUSH 

POP 

MOV 

MOV 

ORA 

RZ 

INX 

PUSH 

CALL 

JMP 



B 

H 

C,M 
A,C 
A 

H 

H 

CO 

PRINTl 



;SAVE POINTER ON THE STACK 

LOAD POINTER INTO HL 

READ NEXT CHARACTER 

PREPARE FOR TERMINATOR CHECK 

CHECK FOR STRING TERMINATOR 

RETURN IF NULL 

INCREMENT POINTER 

RESTORE ON STACK 

PRINT CHARACTER 

LOOP UNTIL DONE 



PRINTL - PRINT MESSAGE WITH A CR-LF ADDED AT THE END 

PARAMETER: 

BC = POINTER TO STRING TERMINATED WITH A NULL 

GALLS: 
PRINT 



CALL PRINT 

LXI B,GRLF 

CALL PRINT 
RET 



; PRINT ORIGINAL STRING 
; PRINT CR-LF 



RESTOR - RESTOR ENVIRONMENT 

RESTOR IS THE COMPLEMENT OF INIT 



POP 

POP 

MOV 

OUT 

MOV 

OUT 

POP 

SHLD 

POP 

SHLD 

POP 

SHLD 



D 

B 

A,C 

SPICMR 

A,B 

IPICMR 

H 

010H 

H 

INT7V+2 

H 

INT7V 



SAVE RETURN ADDR WHILE PLAYING WITH STACK 

READ INTERRUPT MASKS 

RESTORE SYSTEM INTERRUPT MASK 

; RESTORE 10 INTERRUPT MASK 

; RESTORE TOFLAG AND FFLAG 

; RESTORE INTERRUPT VECTOR 
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LOC OBJ 

EDBC Fl 
EDBD D5 
EDBE C9 



EDBF C5 
EDC0 01D0ED 
EDC3 CD90ED 
EDC6 CI 
EDC7 CD90ED 
EDCA 3E00 
EDCC 321000 
EDCF C9 



EDD0 20205445 
EDD4 5354494E 
EDD8 4720 
EDDA 00 



SEQ 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 SETUP: 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 SETA: 



925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 



SOURCE STATEMENT 



POP 

PUSH 

RET 



PSW 
D 



; RESTORE A AND FLAGS 
; RETURN 



SETUP ^ SET UP FOR TEST 

SETUP PRINTS OUT THE START MESSAGE FOR A TEST AND INITIALIZES 
FFLAG TO 0. 

PARAMETER: 

EC = POINTER TO START MESSAGE 

MODIFIES: 
FFLAG 

CALLS: 
PRINT 



PUSH 

LXI 

CALL 

POP 

CALL 

MVI 

STA 

RET 



DB 



B 

B,SETA 

PRINT 

B 

PRINT 

A,0 

FFLAG 



;SAVE MESSAGE POINTER 
; PRINT 'TESTING ' 

; PRINT MESSAGE 

;ZERO OUT FFLAG 



TESTING 



TEST - TEST RESULT FLAG OF A TEST 

THIS ROUTINE TESTS THE RESULT OF A TEST AND PRINTS A 
FAILURE MESSAGE IF JUSTIFIED. THE FLAG 'FFLAG' ARE TESTED, 
AND IF THERE HAVE BEEN NO FAILURES IN THE TEST TO THAT POINT, 
A CR-LF PAIR IS OUTPUT. FFLAG IS UPDATED TO TO REFLECT THE 
FAILURE. TOFLAG IS RESET TO 0. 

PARAMETERS: 

A = RESULT FLAG 

=> TEST PASSED 

0FFH => TEST FAILED 
BC = MESSAGE ADDRESS 

MODIFIES: 
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LOG 


OBJ 


SEQ 


SOURCE 


STATEMENT 






944 


FFLAG 






945 


TOFLAG 






946 










947 , 


CALLS; 








948 , 


PRINT 






949 










950 






EDDB 


211100 


951 TEST: LXI 


H, TOFLAG 


EDDE 


B6 


952 


ORA 


M 


EDDF 


C8 


953 


RZ 




EDE0 


C5 


954 


PUSH 


B 


EDEl 


3A1000 


955 


LDA 


FFLAG 


EDE4 


B7 


956 


ORA 


A 


EDE5 


C2F3ED 


957 
958 


JNZ 


TESTl 


EDE8 


0149EE 


959 


LXI 


B,CRLF 


EDEB 


CD90ED 


960 


CALL 


PRINT 


EDEE 


3EFF 


961 


MVI 


A,0FFH 


EDF0 


321000 


962 
963 


STA 


FFLAG 


EDF3 


0103EE 


964 TESTl: LXI 


B, TESTA 


EDF6 


CD90ED 


965 
966 


CALL 


PRINT 


EDF9 


CI 


967 


POP 


B 


EDFA 


CD9EED 


968 
969 


CALL 


PRINTL 


EDFD 


3E00 


970 


MVI 


A,0 


EDFF 


321100 


971 


STA 


TOFLAG 


EE02 


C9 


972 
973 
974 


RET 




EE03 


20202020 


975 TESTA: DB 


' FAILURE 


EE07 


4641494C 








EE0B 


55524520 








EE0F 


2D2D20 








EE12 


00 


976 
977 










978 $ 


TITLE 


('INTERRUPT I 






979 $ 


EJECT 





; CHECK TIMEOUT AND RESULT FLAGS 
; CHECK FLAGS 
/RETURN IF PASSED 
;SAVE MESSAGE POINTER 
; CHECK FAILURE FLAG 

;IF THERE HAS ALREADY BEEN A FAILURE 

; CR-LF MESSAGE 

;SET FFLAG TO FAILED 

; 'FAILURE — ' MESSAGE 



;POP ERROR MESSAGE POINTER 
; PRINT ERROR MESSAGE 



; RESET TOFLAG 



-- ',0 
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LOG OBJ 



EE13 3EC3 
EE15 323800 
EE18 2129EE 
EEIB 223900 

EEIE FB 
EEIF 06FF 
EE21 05 
EE22 C221EE 
EE25 F3 
EE26 3EFF 
EE28 C9 

EE29 F3 
EE2A El 
EE2B 3E00 
EE2D C9 



EE2E 


3E0C 


EE30 


D3FD 


EE32 


D3FB 


EE34 


DBFD 


EE36 


DBFB 


EE38 


3E20 


EE3A 


D3FB 


EE3C 


D3FD 


EE3E 


FB 


EE3F 


C9 



SEQ 

980 

981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 CHKINT: 

995 

996 

997 

998 

999 
1000 

1001 CHKl: 
1002 
1003 
1004 
1005 
1006 

1007 CHK2: 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 

1024 RESET: 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 



SOURCE STATEMENT 

CHKINT - CHECK INTERRUPTS 

ENTRY CONDITIONS: 

ALL UNDESIRED INTERRUPTS MASKED OUT 
DESIRED INTERRUPT LINE ON 
8080 INTERRUPTS DISABLED 

RETURNS : 

A = SUCCCESS FLAG 

= TEST PASSED 

0FFH = TEST FAILED 
8080 INTERRUPTS TURNED OFF 



MVI 
STA 
LXI 
SHLD 

EI 

MVI 

DCR 

JNZ 

DI 

MVI 

RET 

DI 
POP 
MVI 
RET 



A,0C3H 
INT7V 
H,CHK2 
INT7V+1 



B,255 

B 

CHKl 

A,0FFH 



H 
A,0 



; STORE A JUMP TO CHK2 
; INTO INT7V 



;TURN THE INTERRUPTS ON 

;WAIT A WHILE 

; DECREMENT THE COUNTER 

;IF NOT COUNTED OUT YET 

;TEST DONE; FAILED 

; RETURN FAILURE 



;TURN OFF INTERRUPTS 

;GET RID OF EXTRA RETURN ADDRESS 

; RETURN SUCCESS 



RESET - TRANSMIT EOI'S TO INTERRUPT CONTROLLERS 

ENTRY CONDITIONS: 

INTERRUPTS TURNED OFF 

EXIT CONDITIONS: 

INTERRUPTS TURNED ON 



MVI 

OUT 

OUT 

IN 

IN 

MVI 

OUT 

OUT 

EI 

RET 



A, POLL 

SPICCR 

IPICCR 

SPICCR 

IPICCR 

A,EOI 

IPICCR 

SPICCR 



;SEND A POLL TO PICS 
;READ AND IGNORE POLL DATA 



; OUTPUT EOI TO 10 PIC COMMAND REGISTER 

; OUTPUT EOI TO SYSTEM PIC COMMAND REGISTER 
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LOG OBJ 



EE40 F3 
EE41 3E7F 
EE43 D3FG 
EE45 79 
EE46 D3FA 
EE48 C9 



SEQ 

1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 



SOURGE STATEMENT 



SETINT - SET UP FOR INTERRUPT TEST 



PARAMETER: 

G = MASK FOR 10 PIG 



EXIT GONDITIONS: 

PIG'S SET UP SO THIS IS THE ONLY INTERRUPT ENABLEABLE 



SETINT: DI 
MVI 
OUT 
MOV 
OUT 
RET 



TITLE 
EJEGT 



A, NOT INT7 
SPICMR 
A,G 
IPIGMR 



(•MESSAGES') 



/INITIALIZE SYSTEM PIG FOR ONLY 10 INTERRUPTS 
;SET UP 10 PIG 
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LOC 


OBJ 


SEQ 




SOUR 


EE49 


0D 


1057 


CRLF: 


DB 


EE4A 


0A 








EE4B 


00 








EE4C 


0D 


1058 


SIGNON: 


DB 


EE4D 


0A 








EE4E 


494E5445 








EE52 


4C4C4543 








EE56 


20534552 








EE5A 


49455320 








EE5E 


49492044 








EE62 


4941474E 








EE66 


4F535449 








EE6A 


43205631 








EE6E 


2E30 








EE70 


00 








EE71 


454E4420 


1059 


SGNOFF: 


DB 


EE75 


44494147 








EE79 


4E4F5354 








EE7D 


4943 








EE7F 


00 


1060 






EE80 


43484543 


1061 


MIMl: 


DB 


EE84 


4B53554D 








EE88 


53 








EE89 


00 








EE8A 


494F43 


1062 


MIM2: 


DB 


EE8D 


00 








EE8E 


50494F 


1063 


MIM3: 


DB 


EE91 


00 








EE92 


52414D 


1064 


MIM4: 


DB 


EE95 


00 


1065 






EE96 


4D4F4E49 


1066 


CHKMl: 


DB 


EE9A 


544F5220 








EE9E 


43484543 








EEA2 


4B53554D 








EEA6 


00 








EEA7 


424F4F54 


1067 


CHKM2: 


DB 


EEAB 


20434845 








EEAF 


434B5355 








EEB3 


4D 








EEB4 


00 


1068 






EEB5 


494F4320 


1069 


lOCMl: 


DB 


EEB9 


4E4F5420 








EEBD 


52455350 








EECl 


4F4E4449 








EEC5 


4E472028 








EEC9 


4E2F41Z0 








EECD 


32313029 








EEDl 


00 








EED2 


494F4320 


1070 


I0CM2: 


DB 


EED6 


43484543 








EEDA 


4B53554D 








EEDE 


00 









SOURCE STATEMENT 



CR,LF,0 

CR,LF, 'INTELLEC SERIES II DIAGNOSTIC Vl.0',0 



'END DIAGNOSTIC ,0 

•CHECKSUMS' ,0 

'IOC',0 
'PIO',0 
' RAM ' , 

'MONITOR CHECKSUM ',0 
'BOOT CHECKSUM' ,0 

'IOC NOT RESPONDING (N/A 210) ',( 



IOC CHECKSUM' ,0 
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LOG OBJ 

EEDF 494F4320 

EEE3 52414D 

EEE6 00 

EEE7 494F4320 

EEEB 494E5445 

EEEF 52525550 

EEF3 5453 

EEF5 00 

EEF6 50494F20 
EEFA 4E4F5420 
EEFE 52455350 
EF02 4F4E4449 
EF06 4E47 
EF08 00 
EF09 50494F20 
EF0D 43484543 
EFll 4B53554D 
EP15 00 
EF16 50494F20 
EFIA 52414D 
EFID 00 
EFIE 50494F20 
EF22 494E5445 
EF26 52525550 
EF2A 5453 
EF2C 00 

EF2D 52414D20 
EF31 42414E4B 
EF35 20302D33 
EF39 324B 
EF3B 00 
EF3C 52414D20 
EF40 42414E4B 
EF44 2033322D 
EF48 34384B 
EF4B 00 
EF4C 52414D20 
EF50 42414E4B 
EF54 2034382D 
EF58 36324B 
EF5B 00 

EF5C A3 



PUBLIC SYMBOLS 



EXTERNAL SYMBOLS 



SEQ 

1071 I0CM3! 



1073 

1074 PIOMl: 



1076 PI0M3: 

1077 PI0M4: 



1078 

1079 RAMMli 



1082 
1083 
1084 
1085 



SOURCE STATEMENT 
DB 



1072 I0CM4: DB 



DB 



1075 PI0M2: DB 



DB 



DB 



DB 



1080 RAMM2: DB 



1081 RAMM3: DB 



DB 
END 



'IOC RAM' ,0 

'IOC INTERRUPTS' ,0 

'PIO NOT RESPONDING' ,0 

'PIO CHECKSUM' ,0 

■PIO RAM' ,0 

•PIO INTERRUPTS' ,0 

•RAM BANK 0-32K',0 
'RAM BANK 32-48K^,0 
'RAM BANK 48-62K',0 



BOOSUM 



; NUMBER TO MAKE CHECKSUM COME OUT TO 055H 



USER SYMBOLS 



isis-i; 


[ e 


i080/80 


85 MACRO 


AS 


3SEMBLE 


IR, V2.0 
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MESSAGES 








































BIMODE 


A 


EB06 


BOOCHK 


A 


0055 


BOOLEN 


A 


0800 


BOOORG 


A 


E800 


BOOSUM 


A 


00A3 


CHECK 


A 


ED08 


CHECKl 


A 


ED0B 


CHECK2 


A 


ED27 


CHECK3 


A 


ED2A 


CHKl 


A 


EE21 


CHK2 


A 


EE29 


CHKINT 


A 


EE13 


CHKMl 


A 


EE96 


CHKM2 


A 


EEA7 


CHKSUM 


A 


EB67 


CO 


A 


F809 


CR 


A 


000D 


CRLF 


A 


EE49 


CSMEM 


A 


0008 


DECHO 


A 


0007 


EOI 


A 


0020 


F0 


A 


0004 


FFLAG 


A 


0010 


FILL 


A 


ED2D 


FILLl 


A 


ED30 


FINA 


A 


ED66 


FINISH 


A 


ED5A 


IBF 


A 


0002 


INIT 


A 


ED71 


INT5 


A 


0020 


INT6 


A 


0040 


INT7 


A 


0080 


INT7V 


A 


0038 


lOCl 


A 


EBB2 


lOCC 


A 


00C1 


lOCCOD 


A 


EBFE 


lOCDID 


A 


EC07 


lOCDOD 


A 


EC0F 


lOCDRA 


A 


EBE6 


lOCDRB 


A 


EBF7 


lOCDRC 


A 


EBFE 


lOCI 


A 


00C0 


lOCMl 


A 


EEB5 


I0CM2 


A 


EED2 


I0CM3 


A 


EEDF 


I0CM4 


A 


EEE7 


lOCO 


A 


00C0 


IOCS 


A 


00C1 


lOCTST 


A 


EB9F 


lOCWT 


A 


EC18 


lOCWTl 


A 


ECIB 


IPICCR 


A 


00FB 


IPICMR 


A 


00FA 


LF 


A 


000A 


MEMCHK 


A 


F81B 


MIMl 


A 


EE80 


MIM2 


A 


EE8A 


MIM3 


A 


EE8E 


MIM4 


A 


EE92 


MIMODE 


A 


EB24 


MONCHK 


A 


001E 


MONLEN 


A 


0800 


MONORG 


A 


F800 


OBF 


A 


'0001 


PIOl 


A 


EC40 


PIOC 


A 


00F9 


PIOCOD 


A 


EC8C 


PIODID 


A 


EC95 


PIODQD 


A 


EC9D 


PIODRA 


A 


EC74 


PIODRB 


A 


ECS 5 


PIODRC 


A 


EC8C 


PIOI 


A 


00F8 


PIOMl 


A 


EEF6 


PI0M2 


A 


EF09 


PI0M3 


A 


EF16 


PI0M4 


A 


EFIE 


PIOO 


A 


00F8 


PIGS 


A 


00F9 


PIOTST 


A 


EC2D 


PIOWT 


A 


ECA6 


PIOWTl 


A 


ECA9 


POLL 


A 


000C 


PRINT 


A 


ED90 


PRINTl 


A 


ED91 


PRINTL 


A 


ED9E 


RAMI 


A 


ED01 


RAMMl 


A 


EF2D 


RAMM2 


A 


EF3C 


RAMM3 


A 


EF4C 


RAMTST 


A 


ECBB 


RESET 


A 


EE2E 


RESTOR 


A 


EDA8 


SETA 


A 


EDD0 


SETINT 


A 


EE40 


SETLIM 


A 


ED3B 


SETLMl 


A 


ED52 


SETUP 


A 


EOBF 


SGNOFF 


A 


EE71 


SIGNON 


A 


EE4C 


SPICCR 


A 


00PD 


SPICMR 


A 


00FC 


SRQ 


A 


0006 


SRQACK 


A 


0005 


SUM 


A 


BB8A 


SUMl 


A 


EB8C 


SUM2 


A 


EB99 


TEST 


A 


EDDB 


TESTl 


A 


EDF3 


TESTA 


A 


EE03 


TOFLAG 


A 


0011 


TRAM 


A 


0009 
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